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Harris RTX 2000 lm 15-bit Forth Chip 

■8 or 10 MHz operation and 15 MIPS speed. 
■1-cycle 16 x 16 = 32-bit multiply. 
■ 1 -cycle 1 4-prioritized interrupts. 

• two 256-word stack memories. 
■8-channel I/O bus & 3 timer/ counters. 

SC/FOX PCS (Parallel Coprocessor System) 

•RTX 2000 industrial PGA CPU; 8 & 10 MHz. 
•System speed options: 8 or 10 MHz. 
•32 KB to 1 MB 0-wait-state static RAM. 

• Full-length PC/XT/ AT plug-in (6-layer) board. 

SC/FOX VME SBC (Single Board Computer) 

• RTX 2000 industrial PGA CPU; 8, 10, 12 MHz. 

• Bus Master, System Controller, or Bus Slave. 
•Up to 640 KB 0-wait-state static RAM. 

• 233mm x 160mm 6U size (6-layer) board. 

SC/FOX CUB (Single Board Computer) 

•RTX 2000 PLCC or 2001 A PLCC chip. 

• System speed options: 8, 10, or 12 MHz. 
•32 KB to 256 KB 0-wait-state SRAM. 

• 100mm x 100mm size (4-layer) board. 



SC32 ,m 32-bit Forth Microprocessor 

•8 or 10 MHz operation and 15 MIPS speed. 

• 1 -clock cycle instruction execution. 
•Contiguous 16 GB data and 2 GB code space. 
•Stack depths limited only by available memory. 
•Bus request/ bus grant lines with on-chip tristate. 

SC/FOX SBC32 (Single Board Compuier32) 

•32-bit SC32 industrial grade Forth PGA CPU. 
•System speed options: 8 or 10 MHz. 

• 32 KB to 512 KB 0-wait-state static RAM. 

• 100mm x 160mm Eurocard size (4-layer) board. 

SC/FOX PCS32 (Parallel Coprocessor Sys) 
•32-bit SC32 industrial grade Forth PGA CPU. 

• System speed options: 8 or 10 MHz, 
•64 KB to 1 MB 0-wait-state static RAM. 

• Full-length PC/XT/AT plug-in (6-layer) board. 

SC/FOX SBC (Single Board Computer) 

• RTX 2000 industrial grade PGA CPU. 
•System speed options: 8, 10, or 12 MHz. 
•32 KB to 512 KB 0-wait-state static RAM. 

• 100mm x 160mm Eurocard size (4-layer) board. 



For additional product information and OEM pricing, please contact us at: 
SILICON COMPOSERS INC 208 California Avenue, Palo Alto, CA 94306 (415) 322-8763 
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Features 



Q A Hardware Interrupt Handler 



Tim Hendtlass 

W Data often must be acquired when the world is ready to provide it, even if the computer is busy 

with other tasks. Thus, tiardware interrupts are a must for programmers working with real-lime 
devices and data acquisition. This interrupt handler allows interrupt service routines to be written 
directly in high-level Forth — hiding all the tedious detail — and has been used in scientific 
instrumentation. High-level ISRs have general-purpose applications, and are easier to write and 
debug than assembler, at some expense in speed. 

■J f 4 Principles of Metacompilation, Part Two 

B. J. Rodriguez 

(Jgy The re may be n o be tie r way to le a rn Fo rth i asi de a n d ou t th an by m a steri ng meta compi la ti on . For 

those ready to take the leap, the author's series of articles (begun in our last issue) tackles all the 
fundamental issues, addresses the thorniest obstacles, and provides ample illustrations and code. 
With this knowledge — bearing in mind the lessons of Shelley's Frankenstein — you can dissect and 
customize Forth to your heart's content. Not incidentally, you will also thoroughly understand your 
Forth system and will be able to apply its resources more wisely. 

28 Character Graphics 

C. H. Ting 

Forth represents new territory to both novice programmers and to those already adept in other 
languages. Exploring such terrain in hit-or-miss fashion can cause missed landmarks and shortcuts 
(where would Lewis and Clark have gotten without Sacajawea?), or may even end in terminal 
frustration. Sometimes it's best to start with a competent guide at the very beginning: here, the 
author teaches beginners how to use Forth commands to print messages on the screen. So begins 
lesson one... more tutorial installments to follow. 



29 s *y lin 9 Fortn to Preserve the Expressiveness of C 

Mike Sola 

Forth's freedorn from multiple syntax formats is the source of some confusion: it fails to package 
code so that the flow of parameters is unmistakable. In pursuit of simplicity and compactness, Forth 
streamlined its parsing requirements by abandoning support for several syntax formats, thus 
impairing its expressiveness. Such concerns prompted the author to lake up the challenge of 
designing- a new Forth styling convention. 
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e had jusi decided 10 
give readers a respite 



from AJN'S Forth's Ialx)r pains 
when we received a letter by 
Chuck Eaker. In it, he 
challenges Forth ex perls who 
are up to their necks in the 
standardization debates to 
turn to another worthy, 
rewarding, and perhaps more 
difficult task. Coi incidentally, 
columnist Mike Elola passed 
this month's "Fast Forthward" 
essay space to fellow Board 
member Jack Woehr, instead 
developing an article closely 
related to Faker's letter. 

This Issue's other con- 
tents range from a tutorial 
introduction to Forth to an 
8051 assembler, an interrupt 
handler, and metacompila- 
Uon. Rut if you're too expe- 
rienced to need a tutorial, 
and too jaded to learn from 
o titers' work with me ta com- 
pilation, start with Faker's 
leitcr and Elola 's article; if 
you take them seriously, we 
think you'll have your hands 
full. 

'Ihe next issue will pub- 
lish winners of our "Forth on 
a Grand Scale" contest. The 
object was to describe Forth 
projects of an unusually large 
or complex nature, and the 
lop authors succeeded hand- 
ily. We look forward to shar- 
ing their work with you. 

We hope you will give 
serious thought lo writing 
for Forth Dimensions. As a 
publication that is both by 
and for the Forth commu- 
nity, it rest 1 ; on each of us to 
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create an informative and 
useful publication. Tell us 
what you are doing with 
Forth, share your discoveries 
and obstacles, teach the rest 
of us something we should 
know. 



As you may know too 
well, a peril of the self-em- 
ployed worker is the persis- 
tent lack of "down time." 
The telephone rings at inter- 
national hours; ihere is sel- 
dom anyone to delegate lasks 
to; and every time you pass 
the office door, a twinge of 
conscience strikes — there's 
always some task clamoring 
for your attention. Paid va- 
caiioas and benefits? Forget 
about them. 

Sometimes the only way 
to really take off work is to 
take off literally, and even 
that doesn't always work, 
not entirely. I recently left 
office and work (except for 
calls to the printer) for the 
first lime since I don't re- 
member when. Taking to 
the road, I ended up at a 
small encampment on a 
mountainous, native Ameri- 
can reservation near die Ca- 
nadian border. Nothing bet- 
ter counteracts a long-term, 
low- level overdose of tech- 
nology than big sky, fresh 
air, spring water, general hi- 
larity, and ceremonial ob- 
servances of the unity of 
diverse people, their spiri- 
tual traditioas, and the nur- 
turing earth. 



A sign was posted to help 
new arrivals find their way 
over die winding, unmarked 
roads. A family of Romanian 
expatriates chanced upon the 
gathering and found itself 
welcomed into a cu liure they 
had studied in books but 
never experienced. I over- 
heard the father tell some- 
one he is an engineer, and 
tlie technopliile in nie — nut 
entirely exorcised — intro- 
duced itself to him. What a 
strange surprise, there among 
tlie jagged peaks and native 
culture, to meet a man who, 
when lie came to the United 
States, was required to learn 
Forth for his first job. 

We discussed how hard- 
ware has changed: the entire 
Romanian financial system 
once was maintained on a 
256K computer (no docu- 
mentation) with four wash- 
ing-machine-sized hard 
drives that could store about 
as much information as a 
checklx)ok register. A gradu- 
ate of the old People's Com- 
puter Co. philosophy of put- 
ling computer power in the 
hands of the people, 1 told 
him thai every time I con- 
sider junking my old TRS-80, 
1 think, "But in its day, it 
could have launched a Third 
Worldspace program!" Once 
ordained in Eastern Europe's 
original mainframe .priest- 
hood, he told me he dislikes 
Forth and loves languages 
with libraries. 

Draw your own conclu- 
sions. Meanwhile, your edi- 
tor is back at his desk and 
working on tlie next couple 
of issues. But even in ihe 
midst of juggling these man- 
made deadlines, press re- 
leases, and various develop- 
ments, I'm remembering the 
fragra n t sweelgrass and wild- 
flowers, the sound of singers 
and drums under the full 
moon, tipis radiant with in- 
ner fires, and the age-old les- 
sons of kinship and gratitude. 

— Martin Ouwrson 
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L etters to the Editor— and to your fellow readers -are always welcome. 
Respond to articles, describe your latest projects, ask for input, advise 
the Forth community, or simply share a recent insight. Code is also 
welcome, but is optional. Letters may be edited tor clarity and length. 
We want to hear from you! 



Visible Words & Ugh/ Complexity 

Dear Marlin: 

Thanks to Mike F.lola for introducing the topic of graphi- 
cal interfaces. He mentioned the term "ugly complexity," and 
it got me thinking again about the perception of complexity. 

Three elements contribute to the perception of ugly 
complexity. The perception of complexity happens when a 
system forces you to think about more than you are 
comfortable thinking about. The ugly part of this perception 
happens when, even after you understand and can use the 
system, the system still doesn't make sense. The third facet 
of ugly complexity is finding that you've gained little or no 
functional ity after the struggle to learn the system. Systems 
like a factory's materia Is -storage system or the tax laws come 
to mind. 

A given Forth environment seems simple because you 
don't have to think about very many of its parts at once. You 
usually have the choice of thinking about only what you can 
handle, "litis may be because it is a small Forth system with 
a relatively small number of words, liven when Forth gels 



Give Forth the ability to 
swallow whole the work of 
others and make it 
interactively available... 

large, it still seems simple because you have a choice about 
how much you have to deal with at once. The C language, 
because of its syntax and compilation, doesn't allow nearly as 
much flexibility concerning what you'll think about, and when. 
It's a mistake to tliink til at, because graptiical interfaces 
are written in C or C++, they are by nature complex. Yes, they 
have a lot of parts and a lot of layers, but they don't have to 
be complex. It's also a mistake to believe that all graphical 
interfaces are equal and that any collection of shapes on a 
screen constitutes a good visible interface. It is important here 
to distinguish "grapfiical" from "visible." Graphical simply 
means thai graphics are used. Tliis is a pretty easy thing to 
do. Visible means that the system is made visible and, hence, 
more understandable to die user. '11 lis is not so easy but, 
when done right, removes much complexity. 

Forth Dimensions 



People who believe in command lines don't have to panic 
here; instead, take a look at the Macintosh Programmer's 
Workshop. It provides a visible meaas of creating and using 
command tines. You can get commands working quickly 
and save them, if you use them a lot, in a smooth, natural 
fashion. In fact, it works so smoothly that you may not think 
you're getting much done. This is because you can actually 
get a lot done without occupying the best parts of your mind 
with tasks that should be relegated to the lizard brain. 

Coasideringall of this, I think it's a shame to avoid putting 
a lovely, simple visible interface on such a lovely, simple 
system as Forth. Creating a visible Forth environment would 
be easy, because the concept of "word" translates easily into 
the visible concept of a "box." One could open the box to see 
what is inside and to manipulate what is there. Stacks have 
already t>een pictured in the literature — all that remains is 
putting in a mechanism to allow the user to point to and grab 
items on the stack. Visible words and dictionaries are a much 
better way of distributing functionality than DLLs. 

I'm working on these ideas now, and I invite anybody else 
who is interested to write or call me. Thanks again, Mike. 

Sincerely, 

Mark Marti no 

14115 N.E. 78fh Court 

Redmond, Washington 98052 

A Challenge to Standards Warriors 

Chuck EakersayS: Hammer your standards-warfare swords 
into plowshares and figure out how to use them to break new 
ground by giving Forth the ability to swallow whole the work 
of others and make it available in the interactive way we all 
know and love. 

Try this. Develop Forth++, which will operate in a Unix 
environment. Define Forth++ words which take the name of 
a (preferably C++) library (such as some of the X libraries) 
and link the library into the Fordi++ environment so thai a 
user can interactively list the classes, functions, etc. provided 
by the library, create instances, execute methods, and 
generally perform reckless experiments quickly and cheaply 
in the manner dial, for me, is the essence of Form. 

Off-the-shelf class libraries provide incredible leverage 
but they are stupifyingly complex, and the documentation is 
enormous but still incomplete. It takes forwerio create and 
run a little program that will give you an answer to how diis 
little widget behaves when you do this weird tiling with it mat 
isn't mentioned anywhere in the documentation. 11 1 had 
Forth++ running in another window, 1 could significandy 
increase my productivity. 

Devise a Forth ++ vocabulary and syntax (hat I could use 
for interactive development; and a tool that will translate 
Forth++ to C++, which I can then compile and link the object 
file to Fonh++, so dial I can continue development, then 
translate, . . 

In my opinion, the proposed standard has more than 
captured the essence of Forth. What Forth needs is a way to 
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capture other standards, 'fherc are lots of 
common, well-known libraries out there 
willi wliieh lens of thousands of profession- 
als are familiar. They are using them to 
leverage themselves into positions of power, 
from which ttiey can develop sophisticated 
software quickly and cheaply. Forth can 
never hope to match this achievement on its 
own. 

Chuck Eaker 

P.O. Box 8, K-l 3C12 

Schenectady, New York 12301 

Combsort Revisited 

Dear Mr. Ouverson, 

After I sent my article, "Combsort in 
Forth" to you, I experimented with the 
shrinkage factor OPXIIIAf). 

I set up speed tests using Combl to 
double -check the effect on Combsort perfor- 
mance of varying the shrinkage factor. The 
results arc given in Figure One. I discovered 
Oiat if arrays have randomi?ed elements, 
even a slight deviation from a factor of 1.3 
causes the sort speed to suffer. But if the 
elements are flat or sorted to some degree, a 
higher factor actually results in a speed 
increase. This explains the erratic perfor- 
mance found by Box and t.acey with higher 
factor values. I don't know why a value of 1 .3 
proves so critical to Combsort performance, 
so you'll have to accept it as a given. 

Walter J. Kottcnkolber 

P.O. Box 936 

Visalia, California 93279 

Megasort in Forth 

Dear Editor, 

The article by Walter J. Rotienkolber 
(FD XI 11/4) on Combsort, was very interest- 
ing but the table of contents entry was 



Figure Two. More readable Megasort. 



\ MEGASORT FOR EASY READING 

: ARFY ( 16 bit array maker ) 

( Size-in-items ) CREATE 2* ALLOT 

i Index - Addr ) DOES> SWAP 2* + ; 
256 ARRY BUCKETS ( TO PUT COUNTS OF EACH OCCURENCE ) 
256 ARRY POINTERS ( LOCATION TO PUT VALUE ) 
ITEMS ARRY DATATEMP ( TEMPERARY ARRAY ) 

: INITBUCKETS ( init BUCKETS ) 
I BUCKETS ] LITERAL 
512 FILL ; 

: SCANLSB ( ITEMS - ) 

( FOR EACH ITEM PUT ONE COUNT INTO THE CORRECT BUCKET ) 
( ITEMS ) DO 
1 I S! 25b AND BUCKETS +! 

LOOP ; 

: BUCKETS>POINTERSl ( MAKE POINTERS TO THE START OF EACH PILE ) 


256 DO 

DUP I POINTERS ! I BUCKETS 9 + 
LOOP DROP ; 

: REORDERLSB ( ITEMS - ) 

( MOVE THE ITEMS TO THE PILES DEFINED BY POINTERS ) 
( ITEMS ) DO 

I se 

DUP 255 ANU POINTERS DUP >R 
$ DATATEMP ! 
1 R> +! 
LOOP ; 

: SCAN MSB { ITEMS - ) 
( ITEMS ) DO 

1 I HATATEMP I + C8 BUCKETS +! 
LOOP ; 

: BUCKETS>POINTERS2 


25 6 128 DO ( NEGATIVE NUMBERS FIRST ) 

DUP I POINTERS ! I BUCKETS 8 ♦ 
LOOP 

128 DO 

DUP I POINTERS ! I BUCKETS @ + 
LOOP DROP ; 

: REORDERMSB { ITEMS - ) 
( ITEMS ) DO 
I DATATEMP DUP @ 
SWAP 1+ C8 
POINTERS DUP >R 
@ SI 
1 B> -l ! 
LOOP ,- 

: MEGASORT ( (litems - ) { Language Nov 8 7 ) 

INITBUCKETS ( init BUCKETS ) 
DUP SCANLSB BUCKETS>P0INTERS1 DUP REORDERLSB 
INITBUCKETS 

DUP SCANMSB BUCKETS>POINTERS2 REORDERMSB ; 



Figure One. Combsort shrinkage factors & performance. 
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Figure Three. Smaller, faster Megasortl. 



\ MEGASCRT1 FOR SPEED AND SIZE 

-p.:: at:-: :-i:<7/PN':s 5:2 a:.:,ot 

CREATE DATATEMP ITEMS 2* ALLOT 

: OBKT/PKTR ( init BUCKETS ) 
BKT/PNTR 512 FILL ; 

: CNTLSB ( ITEMS - ) 
[ ITEMS ) DO 

2 I S( 255 AND 2* BKT/PNTR + +! 
LOOP ; 

: CNT>PNTR1 

DATATEMP BKT/?NTR 
256 DO 

DUP e >R 

OVER OVER : 2+ 
SWAP R> + SWAP 
LOOP 2 CROP ; 

: LSB ( ITEMS - ) 
( ITEMS ) DO 

1 S@ 

DUP 255 AND 7* BKT/PNTR + 
DUP >R @ ! 

2 R> + ! 
LOOP ; 

DATATEMP If CONSTANT DATATEMP 1 



CNTMSB ( XTEMS - > 
( ITEMS j DO 

112* DATATEMP 1 
LOOP ; 



+ C@ 2* BKT/PNTR + +! 



: CNT>PNTR2 

BKT/PNTR 256 + 
128 DO 

DUP 9 >R 

OVER OVER ! 24 

SWAP R> + SWAP 
LOOP DROP BKT/PNTR 
128 DO 

DUP @ >R 

OVER OVER ! 2+ 

SWAP R> + SWAP 
LOOP 2 DROP ; 

: MSB ( ITEMS - ) 
( ITEMS ) DO 
I 2* DATATEMP + DUP % 
SWAP 1+ C@ 2* 
BKT/PNTR + DUP >R 
I S! 
1 R> +! 
LOOP ; 

: KESASORT1 { litems - ) ( Language Nov 87 ) 
BKT/PNTR DUP CNTLSB CNT>PNTR1 DUP LSB 
OBKT/PNTR DUP CNTMSB CNT>PNTR2 MSB ; 



misleading. "Rumors of my death have been greatly exagger- 
ated." I pulled out my old code and found there was no 
competition with (he Combsort and DVD&KNKR. It did get 
me thinking that even DVD&KNKR might not tx; the fastest 
and I didn't want to be caught with my pants down. I did 
some research and found yet a belter sort — one called 
Megasort. I found an article describing it in a November 1987 
copy of Language. Well, here are the results: 

Test Condition.- 

Test set: Challenge of Sorts 

CPU: 10MHz '286 



'liming: average of ten passes timed by stop watch and 

corrected for pattern-generation lime. 
Forth: F-PC 3.34 



Sort 



Speed Size 



COMBl 6.94 
COMB2 7.05 
DVD&KNKR .65 
MEGASORT .62 
MEGASORT 1 .48 



6728 (Not counting stack and names) 
3136 (Not counting stack and names) 
26l6 (Not counting slack and names) 



The king is dead, long live the king! 

I have included the code for bolh MEGASORT [Figure Twol 
and MEGASORT 1 [Figure Threel, since MEGASORT is more 
readable and MEGASORT 1 is "pedal to the metal." It should 
be noted that DVD&KNKR is about three times faster than 
Quicksort for 1000 items and MEGASORT 1 is four times faster! 

Dwight K. Elvey 
Santa Cruz, California 



Total control 
mfoLMI FORTH' 

For Programming Professionals: 
an expanding family of compatible, high- 
performance, compilers for microcomputers 



For Development: 

Interactive Forth-83 Interpreter/Compilers 
for MS-DOS, OS/2, and the 80386 

• 16-bit and 32-bit implementations 

• Full screen editor and assembler 

■ Uses standard operating system files 

• 500 page manual written in plain English 

• Support for graphics.floating point, native code generation 



For Applications: Forth-83 Metacompiler 

• Unique table-driven multi-pass Forth compiler 

• Compiles compact ROMable or disk-based applications 

• Excellent error handling 

• Produces headerless code, compiles from intermedia 
and performs conditional compilation 

• Cross-compiles to 8080, 2-80, 8088, 68000, 6502, 8051, 8096, 
1802, 6303, 6809, 68HC11 ,34010, V25, RTX-2000 

• No license fee or royalty for compiled applications 



ml 



Laboratory Microsystems Incorporated 
Fbst Office Box 10430, Marina del Ray, CA 90295 
Phone Credit Care* Orders to: (213) 306-7412 
FAX: (213)301-0761 
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F-PC 

A Hardware' 
Interrupt Handler 



Dr. Tim Hendtiass 
Melbourne Australia 



Interrupts are jiowerful, but often are not used tiecause 
a knowledge of assembly language programming and atten- 
tion to many details is usually required. This paper describes 
an intermpt service routine compiler that allows interrupt 
service routines to be written directly in high-level Forth 
while hiding all the tedious detail. It was originally developed 
for teaching, so students could concentrate on what they 
were doing and why they were doing it, rather than be lost 
in how they were doing it. Subsequently, it has been used in 
a number of other situations, principally in the area of 
scientific instrumentation. Aldiough ISRs written in high- 
level Forth are slightly slower than those written in assem- 
bler, high-level ISRs have applications for general purpose 
use and are fareasierto write and debug. The example given 
is written for F-PC, but it can readily be adapted to other 
processors and implementations of Forth. 

Introduction to Interrupts 

In most computing, the timing is set by the processor. The j 
user supplies input on demand when the processor wants it 
and receives output when the processor is ready to provide 

Hardware interrupts may 
occur at any time, even when 
Forth is not in control... 

it. Timing is not of great interest in these eases, except to 
make tile task run as fast as possible, overall. 

However, in some situations such as interfacing, the data 
must be acquired when the world is ready to provide it, and 
if it is not acquired it is last forever. In such cases, correct 
handling of the inconsistent and variable timing imposed by 
the world is mast important. Such programs have no way of 
knowing something is going to happen before the moment 
at which occurs. Of course, it is possible for the processor to 
periodically slop doing its main task and look to see if 
something has happened, just in case; but the chance of missing 
an event is very tiigh unless an enormous proportion of the 
processing time is spent looking at very frequent intervals. 

A better way to respond to random events is to use sped al 
hardware to inform the processor when an event has 
occurred. It 'informs' the processor with an electrical signal 
called an interrupt, applied to a pin on the processor, which 
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triggers the intermpt respin.se mechanism inside the proces- 
sor. The processor (normally) will immediately suspend the 
task it is doing, establish exactly which of the possible 
sources just interrupted it, and take whatever action has lieen 
deemed appropriate to handle interrupts from that source. 
After performing this action, the processor will return to carry 
on with the task it was doing before the interrupt occurred. 
By making the processor subservient to special interrupt 
hardware, the programmer can write a program that gives its 
full attention to the main task, safe in the knowledge that 
these external, spontaneous events will be handled quickly, 
safely, and automatically when they occur. The programs to 
handle each of die possible interrupts are quite separate 
pieces of code which transfer activity from the main program 
to them and back again automatically when an interrupt 
occurs. Of course, the hardware must be initialized before it 
can handle an interrupt. 

Interrupt Response Mechanism 

The processor response mechanism is generally very 
similar in all processors. First the processor finishes its current 
instruction and saves the minimum information that will be 
needed later to resume as if nothing had happened, Tlien the 
processor jumps lo a pre-established address and starts 
executing the instructions there. The (usually) short program 
the processor executes in response to an interrupt is called 
the interrupt service routine (or ESR for short). There are often 
a number of them, each starting at a different address. These 
start addresses are known as the interrupt vectors. Usually 
there is one ISR for each passible intermpt source, although 
it is possible for two or more i n term p ting sources to trigger 
the same routine to service all of them. There must be a 
special instruction at the end of each ISR tiiat causes the 
processor to rescue the information it saved before going to , 

Tim Hondllass obtained his Ph.D. in Ionospheric Physics in 1974 but later 
switched to Scientific instrumentation. Hois now an Associate Professor respon- 
sible loi the Scientific Inslrumenlation major a Uhc Swinburne Institute otTechnol- 
ogy. He discovered Forth in about 1980 and since has used it extensively, first for 
rescarchandlalerlorloaching.HotoachesForthloabouteOsludentsayeaf.who 
use it for learning about instrument interfacing and real-time processing. In 
research, he has used it in diverse fields: from intelligent adaptive technological 
support for the elderly, lo highly distributed industrial data collection, lo devices 
for the measurement of capaci lance under adverse conditions. Ho likes F-PC 
becau se il is a f ul I implemen ta lion wi th a deq uate su pporl for even va gu e students 
and because, as it is public domain, he can share it wilh all interested persons 
without restriction He can be con lac ted by mail at the Physics Department. 
Swinburne Institute ot Technology. P.O.Box 2 IS Hawthorn Australia 3 1 22, or by 
phono (61 3 819 8863) or by tax (61 3 818 3645). 
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the ISR and use this to return lo what il was doing when it 
was interrupted, carrying on as if nothing had happened. 

Preparing a processor to receive interrupts involves first 
putting the interrupt service roufinc(s) in place in memory, 
then arranging for each interrupt to cause the processor to 
find its way to the correct ISR, How this is to be done depends 
on the processor; in some simple systems, the manufacturer 
specifies the Start addresses of the interrupt service routines 
for all the possible interrupts, in this case, all that is required 
is to put the ISRs into memory starting at the pre-spedfied 
addresses. More commonly, a table of start addresses of the 
ISRs is kept in memory, 'this allows the ISRs lo be anywhere 
in memory, of any length, and most importantly to be quickly 
changed by just changing the appropriate entry in the table. 
It also allows one physical interrupt service routine to setvicc 
more than one interrupt source. 

Interrupts on the 
80x8x Processor Family 

From now on, we will limit this discussion to the 80x8x 
processor family on which F-PC runs. In this family a table 
of 256 addresses is kept, each entry consisting of a fou r-byte 
address in segment: offset form. Possible interrupt sources are 
numbered from zero to 255, and identify themselves by that 
number when they interrupt. When interrupt source zero 
interrupts, the processor reads the zeroth entry in the table, 
goes to that address and executes the ISR there. The response 
to an intenupt from source number one is the same, except 
the first entry is read, and so on, The table of ISR start 
addresses is called the interrupt vector table. 

There are times when an interrupt would be an acute 
embarrassment, such as when the processor is placing (or 
changing) interrupt service routines, or when the processor 
is running a piece of code dial is so lime critical that even the 
briefest interruption cannot be tolerated. To allow for these 
situations, two special instructions conuol whether the 
processor will respond to interrupts. The machine -level 
instruction set interrupt flag (STI) allows it to respond, the 
instruction clearinterrupt flag (CU) stops it from responding. 
There are also non-maskable interrupts (NMI) 1 which are 
responded to no matter what the state of the i menu pt-e nab Ic 
flag. The processor automatically disables further interrupts 
as it goes lo do an ISR, and re-enables them when the final 
instruction of the ISli, the special instruction IRFT, is ex- 
ecuted. If il is lhe intention that a particular ISR itself may be 
interrupted if a more imponani (urgent) interrupt occurs, the 



1 , Themoslusuai type of interrupts which can be switched onor off atwill arecalled 
mas kable in lerropls There arc also non-maskab le in terru p ts ( N Mi ) whic h can no t 
be turned off inside the processor. These are normally reserved lor responding 10 
emergency si lua lions, such as power failing, the consequences of which would be 
so cataclysmic that responding to Ihcrn would be more important Itian anything 
else the processor might be- doing The response mechanism is almost identical 
to the way the processor responds to maskable interrupts, and the words we 
develop here will work with either maskable or non-maskable interrupts. The 
address of the non-maskable interrupt service routine is entry 2 in the interrupt 
vector labfe. 

For IBM- PC users, non-maskab I o interrupts can bo turned off by hardware 
0xtem.1l to the processor Indeed, they are lurned off at power-up (but turned back 
on by the BIOS almost immediately). They maybe turned on by a program writing 
80 hex to t/O port AO hex or turned off by writing lo the same port. This uses 
hardware provided on tho PC motherboard to control a gate which allows or 
prevents the actual electrical NMI signal reaching the chip. It does not exercise 
control within the processor as CLI and STI do for maskable interrupts. If the 
electrical signal for a non -maskable interrupt reaches the processor, no power on 
earth will prevent the processor from responding lo it. 



Figure One. Registers which must be correctly 



reloaded for 'safe' re-entry to Forth. 



The data stack pointer 


SP 


The return stack pointer 


BP 


The next instruction pointer 


ES;SI 


The current word pointer 


AX 


The scratch pad registers 


BX, CX, DX. Dl 


The segment registers 


CS. DS. SS 


The direction flag 


DF 



programmer must re-enable interrupts with an STI as soon 
as it is safe for another interrupt to be recognised. 

Interrupts can be triggered by either external hardware, 
as described above, or by software command. The assembly 
languageinstructionlNTOwillcauseintenuptzcrotomnjust 
as if a hardware interrupt signal had been received from 
interrupt source zero; and similarly for all oiher interrupts. 
T his is very useful for testing purposes. 

Designing an ISR Compiler for F-PC 

ll is most important to realise that once an interrupt occurs 
and is responded to, the processor is running normal 
machine code, no matter what it was running when the 
interrupt occurred. So, if we were running Forth, after an 
interrupt Forth no longer has control. The ISR must at least 
start out in assembly code. 

If a software command causes an interrupt while Forth is 
running ourprogram, the environment trie processor is in at 
the time of the intenupt is known: it will be in Forth. 
However, hardware-initiated interrupts may occur at any 
time, even when Forth is temporarily not in control. (Forth 
.seeks service from DOS from time to time when it needs to 
use the screen, the keyboard, or the disks.) To handle 
hardware interrupts successfully, wc have to preserve al! the 
same registers as for the software- initiated case (because 
most of the time Forth will be in control), as well as any 
registers over and above these that DOS mighi use (just in 
case). The net result of ill is is that, to be quite sure, we have 
to save all registers at lhe start of our interrupt service routine 
and restore ihcm all just before we return from processing 
our interrupt. 

When we wish to run our Forth interrupt service routine, 
we can make no assumptions about the contents of any 
register (DOS could have changed them temporarily) and 
must reload all the ones (shown in Figure One) absolutely 
required by Forth (the scratch ones do not need to be loaded 
when we go into the ISR, as wc will always be going to the 
start of a Forth word; but they must be restored before we 
return from our ISR, in case Forth was in control and their 
contents were important when the interrupt occurred). So 
our skeleton interrupt service routine looks like: 

• assembly code to save all registers 

• assembly code to reload all registers as Forth needs 
them 

• assembly code lo switch 10 high-level code 

• high-level code 10 do what the ISR has to do 

• high-level code to return to assembly code 
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Figure Two. Source code for the ISR-building words. 



5> constant STACK-NUMBER 
variable STACK-BASE 
100 constant STACK-SIZE 
AO constant RSTACK-OFFSET 
create ISR-STACKS 
stack-size stack-number * 
allot 

isr-stacks stack-size + 
stack-base 1 

LABEL ISRENTRY 



JSH AX 
j MOV BP, 



PUSH DT PUSH BP 

SP \ stack pointer to bp 

MOV DI, 6 [BP) \ adr of offset to list to process (n) to dl 

MOV CS: AX, (DI] \ get the actual offset (from the code segment ) 

PUS!! 3X \ we will also need 3X 

PUSH DS V and DS 
\ old stack is now pc cs flags n ax dl bp bx ds. 
\ Register ax contains the actual offset Into Forth list space 
\ Switch to new stack 

MOV BP, SP MOV DI, SS \ 

MOV BX, CS \ 
MOV SS F BX 

MOV DS, BX \ 

MOV BX, t STACK-BASE \ 

MOV SP, [BXJ \ 



Finish setting up the registers for Forth 
saving any registers not already saved 



ADD [BX|, t 5TACK-SI2E WORD 



* assembly code to reload 
all the registers we 
originally saved 

• assembly code instruction 
to return from interrupt 
ORFID 

As all but tiie 'liigh-level 
code to do what the ISR has to 
do' are always the same, we 
can write ihern as two words 
(calling the bit before the high- 
level code ISRENTRY and the 
bit after ISREXIT). As a fur- 
ther refinement, we can have 
a defining word, say int:, 
that starts an ISR definition. 
This will build the list that is 
the user-supplied, nigh-level 
ISR code. The definition ter- 
mination word, say INT,-, 
would append the high-level 
(colon) version of ISREXIT 
automatically as the last item 
on this list. The run-time 
behaviour ISR: gives to the 
ISR it is building is to perform 
ISRENTRY and then to pro- 
cess the list just as if it were a 
normal colon definition. Our 
ISR structure is now: 

ISR: <name> 
high-level Forth words 
ISR; 

This is conceptually neater 
a n d encou ra ges progra mme rs 
to concentrate on what they 

are trying to do rather than the details of how it is being done. 

Implementation of the ISR compiler. 

The definitions of ISRENTRY, ISREXIT, ISR:, and 
ISR; arc shown in Figure Two. It is not necessary to 
understand how they work to use them, but ihcse notes arc 
intended to assist those who are curious or wish to modify 
them for a different system. 

When the interrupt occurs, we do not know where the 
stacks' pointers used by F-PC point, nor do we know how 
much room exists on these stacks before we write over 
something important Although F-PC has a substantial amount 
of stack space, other versions; — especially those on embed- 
ded systems — do not, and the only safe tiling is to ha ve a pair 
of new slacks (one for data, one for return addresses) 
exclusively for the use of our interna pt. We cannot have only 
one pair of stacks available if this internipt may itself be 
interrupted. For intcrniplable interrupts, we need as many 
pairs of stacks available as the maximum depth to which we 
will allow interrupts to be nested. In short: a stack of pairs of 
slacks, the depth of which determines the maximum inter- 
rupt nesting depth. In Figure Two, this is set arbitrarily at five. 
On entry to ihc ISR, a variable STACK-BASE is read to get the 



\ I stacks - nesting depth of ISRs 

\ place to keep the top of the current stack 

\ size : one data stack return stack pair 

\ depth of data stack {offset to return stack) 

\ pointer to bottom of the stack of stacks 

\ number of bytes the stacks will take 

\ ir.akc space for the stacks. 

\ calculate top of first data stack 

\ initialize base pointer 



comment : 

( stack on entry = pc cs flags n ) 

( old stack on exit - pc cs flags n ax di bp bx ds ) 
( new stack on exit - es si old-sp old-ss cx dx ) 

n is the offset in list space to the list of high-level words to do in this rSR. We 
first use the stack we are in when the interrupt occurred to save some information 
comment; 



old stack pointers to bp and di 
new stack segnment=new code segment 

data seq = stack seg - current code seg 
get new stack pointer 
new stack set up 



and 



PUSH ES PUSH SI 

ADD AX, f XSEG S MOV ES, AX 

S'JB SI, SI 

PUSH 3P PUSH DI PUSH CX PUSH DX 

MOV BP, SP SUB BP, * RSTACK-OFFSET 
NEXT 



\ adjust stack-base lest we get 
\ interrupted 

\ save registers we ars going to use 
\ point es to the correct list segment 
\ clear si (part of Forth program counter) 



\ Set 



up new return stack pointer 
\ Start the ISR. 
New stack now es si old-sp old-ss cx dx 

(Continued on next page.) 



initial value of the data stack pointer, then this is incremented 
by STACK- SIZE so it points to the next stack to use should 
this interrupt be interrupted. The return stack pointer is 
initialized to the data stack pointer minus RSTACK-OFFSET. 
At the time of exit from the ISR, the value of STACK-BASE 
is decremented by STACK-SIZE. In the interests of speed, 
no check is made to see that you do not run out of ISR stacks 
(that is, have interrupts nested too deep). 

When we get to ISRENTRY, the stack already contains 
four items of interest to us. The contents of the instruction 
pointer, the code segment register, and the flag register were 
saved automatically by the interrupt-handling hardware built 
into the processor. The minimum run-time behaviour of 
CREATE places on the Stack the address of the word after the 
call to the run- time routine. In this case, as for a colon 
definition, this contains the offset from the start of tile list 
segment to the start ofthe list of things to do. For a description 
of tlie internal structure of F-PC, see [Ting891. A few more 
things must be saved to give us some working room before 
we switch to our interrupt stack. Then the remainder of the 
things we need to save are placed on this new stack. 

When we come to the end of the ISR, we cannot just jump 
back into what we were doing before the interrupt occurred. 
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CODE ISREXIT 
comment : 

{ old stack on entry " pc cs flags n ax dl bp bx ds ) 
( new stack on entry - es si old-sp old-ss ox dx ) 
( both stacks empty on exit ) 
comment; 



MOV BX, * STACK - d AS i 

SUB [BX], I STACK-SIZE WORD 

?0E> DX POP CX POP AX POP BP 

POP SI POP £S 

MOV SP, BP MOV SS, AX 

POP DS POP BX POP BP POP DI 

MOV AL, I 20 OUT I 20 AL 

POP AX ADD SP, I 2 

I RET 

EMD-CODE 



ISR: 



< : r ■ ' . : I i ■ 

xr.ere paragraph 
dup xdpseg ! 
xseq @ - 

xdp off 

] 

isrentry 
last 8 
name> 
1 + 

tuck 2 4 - 
swap : 



\ adjust stack -base down or.c level 

\ restore registers saved on ISR stack 

\ switch back to the entry stack 

\ restore all but erne register we had there 

\ re-enable the Pes hard. Int. controller 

\ lose offset to list we processed 

\ finished with this interrupt 



\ Interrupt Service Routine defining word 
\ builds the name and list of things to do 
\ build header (in head seg) 

justify list pointer to next multiple of 16 

save one copy into xdpsecj 

calc offset from xseg to where list will start 



\ place after where the jump to isrentry will be cone space 
\ set xdp to 

\ make a list of the colon words that make up the 
\ ISR continuing until compiler turned off by ISR: 
\ get address of run time routine we will use 
\ get name field address of this definition 
\ move to start of code field 
\ move over the opcode byte (call) 
\ calculate relative offset 

\ install offset to isrentry as target of call 



: ISR,- 
state 8 
abort " 



0- 



\ check we really compiling 



compiling an ISR! 



?csp 

compile ISRexit 
[compile] I 
; immediate 



\ 

\ 

add special exit 
when encountered 



this word must run when compiling 



First we must execute I SREXI T to return all the registers exactly 
as they were when the interrupt occurred. This reclaims 
everything from the interrupt stack, resets the interrupt stack 
;x>inter down one level, switches back to the original stack, 
reloads all the information we saved there, loses the list offset 
which is still there but no longer needed, then issues the special 
command trial signifies to the PC hardware interrupt controller 
ll tal ihe twrent intermpt is finished, and final! y lets ihe processor 
do its normal end-of-inlerrupt housekeeping. 

The remainder of the code in Figure Two defines the 
words ill at build ISR type words. The first ISR: marks the 
start of an ISR definition. It builds the list of tilings lo do in 
list space, just as the colon defining word : docs. However, 
unlike t which installs NEST as the ruh-Ume behaviour, 
ISR : installs the word ISRENTRY which we just wrote. 

The list compiler ] will continue to build the list until 
turned off ISR; , the word that marks the end of the 
definition, turns off the list compiler and then adds thespecial 
word ISREXIT to the end of the list. When this word is 
processed, the registers are reloaded and control is returned 
to wliatever was going on before the interrupt. 

Convenience Words for Interrupts 

To handle a source of intenupts, first one would have to 
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write die interrupt service rou- 
tine and then install ii by put- 
ting (he address of this ISK in 
the correct place in the inter- 
rupt vector tabic in the menu >ry 
region from 0:0 to 0:3FFII. 
Before you write the address of 
your new ISR, however, you 
should note the current service 
installed for that interrupt (ap- 
parently 'unused' interrupts 
may have a trap service in- 
stalled), 'the address currently 
there should be saved so that 
the original service can be re- 
stored later. Of course, if you 
are sure you will never want to 
restore the original service, you 
can write over it. To assist 
when using interrupts with F- 
PC, a number of convenience 
words are reproduced in Fig- 
ure Three, based on the file 
INTFRRUP.SFQ contributed to 
(he F-PC package by CM. Ting 
".'INTERRUPT returns the ad- 
dress of the current interrupt 
service routine; this can be 
replaced later with RE-IN- 
STALL- INTERRUPT. IN- 
STALL -INTERRUPT is used lo 
write the address of a Forth ISR 
into a specified position in the 
vccLor table. You must never get 
into die situation where an inter- 
rupt vector 'points to' (is the 
address of) an ISR that no longer 
exists. Disaster is assured if you 
do so and tfiis interrupt occurs. 

It is sometimes convenient to turn interrupts off and on 
directly with high-level Forth words. Two trivial Forth words 
to do just that are also shown in Figure 'Ihrec, as is an 
example of a word that triggers a software interrupt so you 
can test an ISR without the hardware needing to be present. 

Example of a High-Level ISR 

'Ihe example shown in Figure Four produces an inter- 
rupt-driven counter which is incremented at a regular rate 
and can be used as the basis for a host of timing purposes. 

External hardware interrupts the processor in die IBM-PC 
family at a regular rate. As well as producing interrupts used 
by the BIOS in the PC, this hardware signal triggers interrupt 
1CH, which normally is serviced by a 'do nothing' ISK in the 
BIOS. 2 We may re- vector this interrupt lo our own ISR that 



abort if word used out of turn 
check for any stack errors, abort if any 
word ISR; to the ISR list 
will turn off the list compiler 



2 . A 5 far as I know s uc It a rou li no ( I i le r ally j usl I R ET) i s available in every SI OS. 
However, the address varies from BIOS lo BIOS. The only portable way lo 
inslal! interrupt veclors is lo read and save what is Ihe re and then put il back 
when you have finished, nouo assume that the vector installed was a vector 
lo the dc-nolhing routine and lhal ihis routine exisls ala standard address. 
For Itlis reason, t do not use or allow my studonls lo uso the rf.movf.- 
intshkup t word Irom Dr. Ting's file — it just wriles in ihe address FOOD; FF53 
which may or may not be the address of Ihe do-nolhing ISR, depending on 
Ihe BIOS you are using 
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increments a 32-bit counter. The interrupt occurs at 18.2 Hz, 
so our counter will be incremented approximately once 
every 55 milliseconds. 

We need to install this BR before it can be used, e.g.: 

hex 

2variable OLD -VECTOR 

\ space to save the original vector 
\ we could save it on stack instead 

1C ?interrupt old-vector 2 ! 
\ read and save old vector 

1 ticking 1C install-interrupt 
\ install our new vector 

decimal 

A couple of other minor words are needed, one to 
initialize (zero) the value in tile counter, and (he other to read 
and display the current value in the counter. These are also 
shown in Figure Four, 

INIT-TICKS will zero die counter and TICKS? will print 
the current value in the counter. Despite 1C interrupts 
occuningat, no doubt, inconvenient times as Forth continues 
tol>e used, all continues as it should because TICKING meets 
the requirements of a good ISK: it is short, fast, and leaves no 
trace of itself on any stack when it has finished mnning. 
When wc have finished with ou r 1SR for good, wc can restore 
things as they were before we installed it by typing: 



hex 

old-vector 2@ 

1C re-install-interrupt 

decimal 



\ get saved vector 
\ put it back 



Remember that interrupt 1C Tires' 18 Limes or so every 
second. So it must always be vectored to a physically existing 
ISK. Don't leave F-PC and load another program without 
replacing the original vector, or the system will crash as the 
memory image of the 1SR code of TICKING get overwritten. 

Lean, Mean, Interruptable 
Interrupts and DOS 

Interrupt service routines should be as short and as fast 
at executing as possible. They should never perform any 
input or output (for example) if it can be possibly avoided, 
as both of these operatioas take considerable time. 'Ihe idea 
is to service the interrupt but also to make as small an 
interruption to the main program as possible. The ISR should 
do tile most time- critical pan of the total service and, if there 
is more service to do, set a flag so that the main program can 
complete the task when it is convenient. For example, when 
collecting data samples under interrupts, the ISR should just 
acquire the value from the input port, put it in a holding 
buffer, and set a flag so that the main program knows to 
process the values from the buffer when it is convenient. 
Using a multitaskcr in conjunction with flags makes tliis 
process particularly simple. 

When using F-PC with DOS, there is another reason why 
you should not make use of any DOS-based input or output. 
Recall that above we arranged for our interrupts to be 
themselves interruptable. To achieve this, wc arranged to 
have a number of Stacks available for use by the ISR, each ISR 
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Figure Three. Convenient words for use with 
interrupts (hex entry is assumed). 




LUUt LN i C.KK Jtr 1 I 


lntf — seg offset ( 




POP AX 


\ get Interrupt number 




PUSH ES 






PUSH BX 


\ preserve these registers 




MOV AH, 1 35 


\ load DOS service number to AX 


INT 21 


\ call DOS to do the work. 




MOV DX, ES 


\ segment returned In ES 




MOV AX, BX 


\ offset returned in BX 




POP BX 






POP ES 


\ restore registers we preserved 


2PUSH 


\ put answer on the stack 




END -CODE 






CODE INSTAI.WNTERRUPT ( addr lnt# — ) 




POP AX 


\ got interrupt number to AX 




POP DX 


\ and ISR offset address to DX 




PUSH DS 


\ preserve DS for later restoration 


MOV AH, « 2S 


\ we require DOS service number 25 hex 


PUSH CS 


\ ISR segment address is in CS 




POP DS 


\ so copy it via stack to DS 




INT 21 


\ let DOS do the work 




POP DS 


\ restore original DS 




NEXT 


\ no values to return, just ust 


NEXT 


END -CODE 






CODE RE-INSTALL- INTERRUPT ( seg offset intf — ) 




POP AX 


\ get interrupt number to AX 




POP DX 


\ and ISR offset address to DX 




PUSH DS 


\ preserve DS far inter restoration 


POP -JS 


\ ar.d pop ISK segment address to DS 


MOV All, • 25 


\ we require DOS service number 25 hex 


INT 21 


\ let DOS do the work 




POP DS 


\ restore original DS 




NEXT 


\ no values to return, just ust 


NEXT 


END-CODE 






CODE INT -ON 


STI NEXT END-CODE 




CODE INT-OFF 


CLI NEXT END-CODE 




CODE TRIGGER- INT-1C 


\ replace IC by the interrupt 






\ number you wish to test 




I NT IC N£XT 






END-CODE 







Figure Four. Example of a high-level interrupt 
service routine plus test words. 




Jvariable ticks 






: DINC ( adr — 1 

dup 28 0.1 dt rot 2! ,- 


\ Increment a double variable 


: INIT-TICKS ( -- ) 

ticks 2! ; 


\ Initialize the counter to 


zero 


: TICKS? ( -- ) 
ticKs 28 ud. ; 


\ read and display the counter 


ISR: 

TICKING ticks dine ISR; 


\ that's it - the whole ISR 





automatically using the next one above the last one used. 
DOS has no such facility. It always uses the same stack for 
a given function. So if, for example, wc are ou [putting to the 
screen, DOS wili set up a stack for its use at a fixed place. If, 
part way through this output operation, another interrupt 
occurs and the now interrupt also goes to output something, 
DOS will set up a new stack directly on top of the old one. 
This will cause no trouble for the interaipt that is currently 
Ireing serviced, but when that is over and the processor goes 
to finish the interrupted interrupt, the information it needs 
has been overwritten. Disaster is now but a few pulses of the 
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processor clock away. Avoiding DOS service in our ISfts is 
ihc only way to ensure this never occurs. 

Extra Info about IBM PC Hardware Interrupts 

ITie information given so far describes how the processor 
itself handles intenupts. Many computers use extra hardware 
external to the processor, thai provides extra control over 
interrupts — in particular to exercise various forms of priority 
control which allow high-priority interrupts to take prece- 
dence over lower-priority ones. 'Ihe IBM PC/XT/AT family 
is no exception and has one or more 8259A interrupt -priority 
controllers), which provides various features at the cost of 
having to be programmed. A full discussion of this chip is 
outside the scope of this paper, but the following section 
should provide enough information to allow use to be made 
of the interrupt lines on the I/O bus of the IBM PC family of 
computers. For information about features not discussed 
here, such as changing the priorities of the various interrupt 
request signals, the user is referred to the 8259A data sheet. 

The I/O bus of the IBM PC and XT provides six lines, 
called IRQ2 through 1RQ7, each of which signals that an 
interrupt service is required when taken high. Two other 
lines are are also on the motherboard but are not brought out 
onto the I/O bus. The electrical signals on these lines have 
to pass through the interrupt controller chip to get to the 
processor. The controller decides which, if any, request 
should be passed on to the processor. It decides this based 
on the priority of the interrupt (whether this is of high enough 
priority to be allowed to interrupt what the processor is 
currendy doing) and whether it has been explicitly disal- 
lowed from passing on this Sype of interrupt. Each of the 
signals from the eight lines may be disabled by writing a 1 
to the appropriate bit in a register inside the 8259A. Bit 3 of 
this register controls line 1RQ3, etc. The IBM AT has more IRQ 
lines on the secondary I/O channel 8259A controller and uses 
the normal IRQ2 to indicate activity on the secondary 8259A 
controller IRQ lines. 

The eight interrupt request lines on the I/O bus, their 
normal use, and the interrupt number they are mapped to are 
listed in Figure Five. Each line may be used by an end user's 
hardware, although difficulties will be experienced if the 
normal 'owner' of a line uses it at the same lime. If you do install 
your own interrupt service routine for any of these interrupts, 
be sure to restore the one normally there when you are done. 

An interrupt can be signaled by bringing die relevant IRQ 
line from the low to the high state. It must be kept in die high 
State until the interrupt service routine for this interrupt has 
begun. As initialized by Ihe BIOS, the interrupt controller will 
not pass a second interrupt signal to the processor until it has 
been given a signal to do so. This signal is given by the 
processor writing 20 hex to output port 20 hex. This is 
automatically done by the code of ISRF.xit at the end of the 
ISli, but can also be done as soon as it would be convenient 
to receive another interrupt. It docs not matter if the 
controller is reset more than once. Do not confuse this signal, 
which re-enables the external interrupt priority controller 
chip, willi the interrupt enable Hag inside the processor. The 
external interrupi priority controller can stop any hardware 
interrupt signal from passing on to the processor. The 
p ro eessor i rue rru pt e n able fl ag w il 1 stop o r a 1 1 o w al ! rn aska ble 
internipls, hardware- or software -triggered. 

'Ihe mechanism by which the relevant IRQ line was held 
Forth Dimensions 



Figure Five. Interrupt Request Lines on the IBM PC. 

IRQO Used for system timing a pplicatioas and is mapped 
to interrupt 8. Interrupt 8 on completion passes 
control to interrupt 1C (hex), which is the user 
timer internipt and whose vector normally points 
to a simple I RET. This line does not appear on the 
I/O channel. 

IRQ1 Used for die keyboard and mapped to interrupt 
vector 9, 'Hiis line does naappearon Ihe I/O channel. 

IRQ2 Reserved in the PC and XT. It is used in the AT 
family to receive the output of anodier 8259A, so 
th at a total oH 5 i ndi vidua 1 inte rru pts ca n be han died. 
It is vectored to interrupt number OA (hex). 

[RQ3 Normally used by the secondary asynchronous 
communications device (COMS2) and mapped to 
interrupt number OB (hex). 

IRQ4 Normally used by the primary asynchronous 
communications device (COMS1) and mapped to 
interrupt number 0C (hex). 

IRQ5 Normally used by the fixed (hard) disk and 
mapped to interrupt number 0D (hex). 

IRQ6 Normally used by the diskette (floppy disk) and 
mapped to interrupt number OF (hex). 

IRQ7 Normally used by ihe parallel printer (PRN) and 
mapped to interrupt number OF (hex). 

high until ihe ISR was started (usually a flip-flop) must be 
reset by the ISR routine itself as trie interrupt -acknowledge 
signal from the processor is not brought out onto the I/O bus. 
j Thus, the ISR will need to have two extra items in it over and 
; above what it needs to suit the processor and the main ISR 
task to be done — it needs to reset the interrupt priority 
controller (automatically done) and it needs to reset the IKQ 
generating mechanism (left to the programmer). 

The 8259A is fairly complex; aldiough it only occupies 
two output ports, it is programmed by sending information 
by way of strings of bytes written in carefully controlled 
sequences to these two ports. To rewrite the contents of die 
interrupt mask register (the register that determines which 
interrupts are categorically not to be allowed through), one 
needs to do more than just write the one byte that controls 
each of the eight lines. The sequence required is: 13 hex to 
output port 20 hex, 8 hex to output port 21 hex, 9 hex to 
output port 21 hex, and finally the interrupt mask to output 
port 21 hex. 'ihe values given here will result in the interaipt 
mask being changed, but they preserve all the other features 
as sei up by the BIOS at system initialization. See an 8259A 
data sheet or [Eggebrecht83l for the meaning of each bit and 
die sequences needed to alter oilier features. 
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F. Creating the Forth Header 

Assembly code rarely exists in isolation in a Forth system. 
Usually, it is part of a Forth "word" (dictionary entry) This 
requires that some information be prefixed onto the machine 
code, 

/. Use 

The Forth word CODE performs two functions: it builds 
the header for a Forth dictionary entry, then it invokes the 
assembler. A word of the same name in the "hosting" 
vocabulary will begin a code word for the Target image. 

HOST CODE name 

Starts a Target "code word." Builds a Forth header with the 
given name in the target image, and invokes the cross- 
assembler. 

Normally, during cross- as.se mbly, the HOST vocabulary 
(or its ASSEMBLER branch) remains active throughout a 
cross-assembly. It is not necessary to return to the NATIVE 
vocabulary. So, once HOST is selected, each code word can 
begin with simply 

CODE name 

Depending on the assembler, it may be necessary to end 
each code word with ; C or END-CODE, 

2. Implementation (screen 75) 

This is the first point at which the structure of the Target 
machine's Forth must be known. 

It is not likely that the Target Forth's header structure Ls 
the same as the Host Forth's. There is no shortcut; it is 
necessary to write a word which causes the Host to build a 
header in the format required by the Target machine. 

(TCREATE) name 

Builds a header in the Target image, in the format required 
by the Target's Forth. 

Note once again the use of the T-prefix, rather than just a 
different vocabulary, to distinguish this word from the native 
(CREATE) . Both will be needed. 

Figure Three illustrates the dictionary header for a 



common fig-Forth model. The "name field" consists of one 
byte, indicating the name length (0..3D followed by the 
'. name text, with the high bit set in both the length byte and 
the last text byte. The next two bytes are the "link field," a 
pointer to the name field of the previous definition. The last 
two bytes arc the "code field," pointing to the executable 
machine code for this word. In the case of a CODE word, the 
executable code is stored immediately after the code field 
address ("CFA"). 

This implementation takes advantage of the fact that the 
name field in the Host is stored in exactly the same format. 
The work of parsing a name from the input stream, and 
adding the length byte and the "end bits," (TCREATE) 
assumes that a Host CREATE has already been performed, 
and simply copies the name field (with >TCMOVE) to the 
Target image. 

The link field and code field must be explicitly handled 
for the Target image, since they bear no relation to the Host. 
Since the link field must have the Target image address of the 
previous Target definition, die compiler must maintain a 
LATEST for the Target. 

HOST LATEST ( — a ) 

Returns the Target address of the last definition added to the 
Target dictionary, (screen 72) 

Since this is a fig-Forth model, LATEST is implemented by 
referencing a pointer to the current vocabulary header. 
Although the vocabulary header is stored inthe Target image, 
the pointer to it is a variable in the Host. Thus, LATEST is 
defined as: 

CURRENT I T@ 

where CURRENT is the name of the pointer, @ fetches die 
contents of the pointer, and T@ then gets the last-entry 
information from this address in the Target image. 

To maintain the fig- Forth vocabulary structure, the 
following pointers must be kept. They are defined in die 
HOST vocabulary, and are stored in the Host memory space. 

HOST CURRENT 

Holds the pointer to die vocabulary header, forthc vocabulary 
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Figure Three. The dictionary— creating the header. 

T CREATE 

link | cfa | ff I ~ 



TEST 



/ 



Address of code 
in the Target image. 



Must be copied 
from the Host's 
input stream. / 

A link to another 
word in the 
Target image. 



The host must keep a LATEST pointer 
for the image! 



where new definitions are "currently" being added, 
HOST CONTEXT 

Holds the poi nter to the vocabu la ry heade r, for the vocabu la ry 
which is to be searched for references to already-defined 
words. 

HOST VOC-LINK 

Holds the pointer to the vocabulary header, for the most 
recently defined vocabulary. 

3- Issues 

a) Direct-Threaded Code 

The fig-Forth implementation for the Zilog SuperS 
uses Direct-Threaded Code, rather than the Indirect- 
Threaded Code more commonly seen in Forth. 
Direct-Threaded Code does not use a code field 
pointer; instead, the executable machine code for 
each word directly follows the link field. 

The relative merits of direct vs. indirect threading are 
a hotly debated topic in Forth circles. In this case, the 
fact the SuperS CPU includes instruction-level support 
for DTC was the deciding factor. 

The impact on the Image Compiler is that, for CODE 
words, nothing need be compiled by (TCREATE) 
after the link field — the assembler is invoked 
immediately. For high-level and defined words which 
use a common machine language routine for all the 
words in a class, a subroutine call must be compiled 
after the link fieid. In practice, (TCREATE) always 
compiles the subroutine call, and CODE "removes" this 
unnecessary call by backing up the dictionary pointer 
three bytes. 

b) Word alignment 

Some machines (notably the PDP-11 and the 68000) 
require that 16-bil values, such as addresses, be word- 
aligned in memory. This is commonly ensured by 
word-aligning the definitions, and the link and code 
address fields. 
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This must be accomplished within (TCREATE) . 
Normally, (TCREATE) wiil begin with a word named 
something like ALIGN, which forces the Target 
Dictionary Pointer to an even boundary. Then, if the 
combination of length byte and name text is an odd 
length, a null will be appended to the name to make 
it even. (Whether or not this null is included in the 
length byte value is problematical.) 

c) Packed name fields 

Occasionally, clever schemes are devised to speed up 
dictionary searches by compressing or packing the 
name information. One PDP-11 implementation (31 
packed four characters of name, the length, and the 
link into two 16-bit words. 

All of this, if desired, is the responsibility of (TCREATE) . 

d) Different linking methods 

Other linking methods than the simple, last-to- first, 
singly linked list are possible, (TCREATE) is the word 
most affected by these. 

Links can be stored in forms other than addresses (as 
in (3D. 

Several versions of Forth use multiple dictionary 
threads to speed the sequential search. Which thread 
to search for any given name is decided by performing 
a hashing function on the name. (This has repercussions 
in vocabulary structure as well, as will be seen shortly.) 

e) Separated headers 

It is becoming increasingly common for the header 
information — specifically, the length, name, andlink — 
to be stored in a separate region of memory. On the 
IBM PC, for example, a separate 64K segment can be 
devoted exclusively to dictionary headers, thus freeing 
more space in the 64 K "program" segment. 

4. Alternatives 

a) Re-scanning the name text. 

At least one metacompiler creates the name field in the 
Target, not by copying a name field from the Host 
machine, but by rescanning die input text. 'Ihe name 
is parsed with WORD, and then it and its length arc- 
copied to the Target image. The text input pointer is 
then backed up to the start of the name so diat the 
Host's CREATE can parse the input normally. (Ihe 
need for parsing the name twice will become evident 
shortly.) 

G.SearcldngtheTargetDictionary(iiilrrorvocabularies) 

The reason Forth words have this header information is 
so they may be found by name later. This Ls the core of the 
"high-level" Forth compilation process: each word in a new 
definition is searched in the "dictionary" and the address of 
its executable code is compiled. 

Obviously, a metacompiler must be able similarly to find 
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words in ihe Target's dictionary. 

1, Usage 

Words created in the Target image are accessed by name, 
just like any other Forth words. 

If the Host is in the "compiling" state, Target words are 
compiled into the Target image. (More on this later.) 

If the Host is in the "executing" state, Target words 
generate an error. The words being created in the Target 
image are not executable by the Host. (Chances are, they are 
for a different CPU entirely.) 

It will be seen later that, under sonic circumstances, a 
word defined in the Target may also have an "executing" 
behavior in the Hast. 

2. Implementation 

Every word defined in the Target image has a corresponding 
word, of the same name, defined in the Hast system. These 
words in the Host system are called "mirror" words. 

The metacompiler never needs to search through the 
Target image. The Host's own, ordinary search logic is 
sufficient to find the mirror word in the Host's 
dictionary. Each mirror word identifies where its 
counterpart is located in the Target image. (This 
eliminates the need for the metacompiler to 
have a TFIND — -a non-trivial problem). 

Figure Four shows the relationship between 
the Target dictionary and the Most dictionary. 
Tliis illustrates a kernel word, LIT, as it appears 
in the dictionary being built in the Target image, 
and in the Host dictionary. 

It is likely that many words defined in the 
'target will have the same name as important 
words in the Host. Of the metacompiler is 
creating a new Forth kernel, this is certain.) To 
avoid these name conflicts, and to allow words 
to be found unambiguously, all of the mirror 
words are kept in yet another vocabulary, called 
TARGET, as shown in Figure Four. 

It may well happen that, in the course of 
writing a mctacornpiled application, the Forth 
programmer desires to create vocabularies. 
Vocabularies are commonly used in Forth to 
distinguish duplicate names, to control the 
search order, or to "modularize" the program. 
Ihe metacompiler must, therefore, duplicate 
these effects. 

Fortunately, with a tree-structured vocabulary 
system (such as in the fig-Forth model), a tree of 
any complexity can be represented as a branch 
of another tree. 

'litis means that all the brandling vocabularies 
in the Target image can be made to correspond 
exactly with branches from the TARGET 
vocabulary in the Host dictionary. (Figure Five) 
And, as long as the I lost is in the corresponding 
vocabulary, it will have exactly the same search 
order as the Target. 

Figure Five shows all die vocabularies likely 
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Figure Four.The dictionary — searching. 
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Figure Five. The dictionary— vocabularies. 
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As long as we're in the corresponding vocabulary, 
we will have exactly the same search order. 
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lo be present in the Image Compiler, 
"root" FORTH 

The basic vocabulary of the I losl's Forth system, 
"root" ASSEMBLER 

The vocabulary which holds the I Iosl's resident assembler. 
(On the IBM PC, an 8086 assembler.) 

"root" EDITOR 

'Ihe vocabulary which hold the i lost's screen editor. 

HOST 

All of the Image Compiler is contained within this vocabulary 
and its branches. 

HOST ASSEMBLER 

The vocabulary which holds the cross-assembler for the 
Target. On this example, a SupcrS assembler.) 

HOST TARGET 

All the mirror words created during metacompilation are 
contained in this vocabulary and its branches. 

Observe that there arc three words named HERE in Figure 
Five: 

"root" HERE 

Returns the Dictionary Pointer of the Host, i.e., where 
compilation will occur in the Host (if new definitions arc 
added to the Most dictionary). 

HOST HERE 

Returns the Dictionary Pointer of the Target image; i.e., 
where compilation will occur in the Target. 

TARGET HERE 

A mirror word This example presumes that a Forth kernel is 
being compiled for the Target machine. All Forth 
kernels have a word HERE. So, this word points to 
the SupcrS version of HERE in the Target image. 



This is why it is necessary to use the name of if te new 
word twice. 

The resulting mirror word for the LIT example is shown 
in Figure Six. "lhis data structure appears in the Host's 
dictionary as an entry in the TARGET vocabulary'. The code 
address field points to machine code, in the Host, which will 
be executed by the Host when this word is referenced. The 
address of the corresponding word in the Target image is 
stored as one of the two data fields following, ('Ihe first data 
field, shown shaded in Figure Six, will be used later.) 

The Image Compiler builds the Host header first. It then 
copies the name field from that header — with adjustments, 
if necessary — to the Target image. 

3- Issues 

a) I leaderless code 

Since the metacompiler always finds words in the 
Target by searching the I lost dictionary, it would seem 
that the headers in the Target image arc dispensable. 

They may be, if the final metacompiled application 
will never need to do a dictionary search. This is likely 
to be the case in, say, a microwave oven. Such an 
embedded program is likely to benefit from the 
memory savings achieved by eliminating the headers 
from the Target image. 

If, on the other hand, the metacompiled application 
will Ix: using die Forth interpreter — for example, if a 
new Forth kernel is being compiled — then the headers 
must be retained. It may still be possible to delete the 
headers from certain words; this is a popular means to 
protect "internal" words which should never be directly 
used by the Forth programmer. 

The Image Compiler includes a flag variable ? HEADS 
which is tested in (TCREATE) to disable the code 



(As an extreme example, it has happened that 
five different words called I were defincrj — in the 
Host kernel, the editor, the resident assembler, the 
cross-assembler, and the mirror word of the Target 
kernel.) 

Target words are defined with die "host 
environment" word 

HOST CREATE name 

Builds a header in die Target image, and a mirror 
word in the Host dicuonary which points to the 
new word in the Target image. 

Tliis word uses (TCREATE) to build the 
header in the Target image, and the ordinary, 
"native" Forth <BUILDS to build die header in the 
Host system for die mirror word. It then adds the 
Target image address to the mirror word. 
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Figure Six. The "mirror" word LIT in the Host. 
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Run-time action — what will happen when this 
word is executed in the Host. 

The usual run-time action is: 

"compile this word into the target image." 

E.g.. in the Host: 



does> 2+ e T, 



from the 
I lost 



\ 

to the 
image 



17 
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which builds the Target image header. It is not 
sufficient tu simply skip (TCREATE), since it also 
builds the code field — which is always required, 
headers or no. 

b) Different vocabulary structures 

Not all Forths use tree-structured vocabularies. 
polyFORTH, for example, uses eight parallel 
vocabularies. The current vocabulary is hashed with 
the name of a word to direct searches to one of eight 
threads. [93 

Oilier Forth systems define vocabularies in a hierarchy, 
but do not cause the vocabularies to chain together as 
in the fig-Forth model. Each vocabulary is "sealed." 

Some Forths (including fig-Forth) search both the 
Context and CURRENT vocabularies. Others search 
only CONTEXT. Still others support a stack or list of 
vocabularies which arc searched in a defined sequence. 
19,10] 

These variations do not pose a problem when creating 
the Target image; they are handled by changing the 
linking logic of (TCREATE) . 1 be problem is ensuring 
that the search order through the mirror words— 
which use the I lost's vocabulary scheme — is the same 
as Hie eventual search order in the Target. 

The current Image Compiler ignores the problem 
completely, assuming either that the Target forth will 
use a vocabulary structure analogous to the Host 
madiine's, or that the finer subtleties of the search 
order are not important, as long as the CONTEXT 
vocabulary is searched first. These assumptions seem 
to hold true for most applications. 

4. Alternatives 

a) Single vocabulary compilers 
Some metacompilers provide no support for multiple 
voca I ui la ries . Th is i s a deq u a le fo r 1 ; ort h ke mel s (w h i ch 
use only one vocabulary), but is a handicap in larger 
applications. 

b) Differing name lengths 
Some metacompilers allow [lie length of the name in die 
Target dictionary to differ from the length of the name 
used in the Host's "mirror" words. 'Ibis seems to offer no 
advantage, and can lead to quite a bit of confusion. 

H. Compiling a Colon Definition 

The implementation described so far is sufficient to build 
a I 'drill dictionary of CODE words for the Target machine. The 
real power of Forth, however, lies in its ability to use existing 
words to define new words. These are the high-level "colon" 
definitions. 

I. Use 

A colon definition in the Image Compiler looks exactly 
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the same as in "normal" Forth: 

; name word word ... word ; 
Ibis will build a colon definition name in the Target image. 
All of the "words" are presumed to already have been defined 
in the Target. 

The {mage Compiler works with some subtle differences 
from the normal Forth compiler, though: 

a) The word : (colon) does not switch die Host's text 
interpreter to "compiling" slate. It remains in "executing" 
stale. 

b) All of word word ... word will execute 

c) Each word, when it executes, will compile itself into the 
Target image. 

This technique was described by Laxen [51. 

2. Implementation 

Each definition in the Target dictionary can be used in the 
construction of new Forth words in the Target image. 
(Compiler directives are a special case, to be discussed 
shortly.) 

One approach would be to give the 1 lost's Forth i ntcrprcter 
three states — execute, compile into the Host, compile into 
die Target. This, however, requires surgery on the Host and 
complicates the interpreter. 

Instead, the function of "compiling into the Target" is 
achieved by executing words in the Host. 'Fhese are words 
in the Host which correspond to the definitions in the Target 
image — in other words, the "mirror" words. 

Each mirror word in the Host belongs to a "class" of words 
which share the same run-time action: When executed, 
compile the address of the corresponding Target word, into 
the Target image. Since the address of the Target word is one 
of the parameters stored in the I lost in the mirror word, this 
action Ls represented simply: 

@ T, 

In this implementation a 2+ is prefixed, since the Target 
word's address Ls stored in the second word of the parameter 
field. 

All mirror words are created by the HOST version of 
CREATE. The "self-compiling" action is attached to all of the 
mirror words by Ihe D0ES> clause in CREATE. (Screen 76; 
also shown in Figure Six.) 

This leaves the problem of beginning and ending a colon 
definition in the Target, i.e. , : and ; . To understand these it 
is best to look at figure Seven and focus on the First Rule of 
Metacompiler Design: Always keep in mind what the result 
should look like.' 

The metacompiler must have a special version of : which 
constructs a header in die Target image. As shown in Figure I 
Seven, this header must contain the name length, name text, 
link field, and the code address for a colon definition. This ; 
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Host's input stream 

: TEST FOO 
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Special version 
of : which 
compiles name 
into the target 
image. . \ 



TEST 



link 



cfa 



is the address of machine code 
in the Target image, which 
will invoke the Target's colon 
interpreter, (Strictly speaking, 
the action is to "nest" the Forth 
inner interpreter.) 

The first three fields are 
built by the metacompiler's 
CREATE, which also builds a 
mirror word in the Host for 
this new colon definition. The 
code address can be simply 
stored in the Target image by 
T ! if the address of this code 
in the Target is known. Forthe 
time being, it will be assumed 
that this machine code has 
already been assembled at a 
known location in the Target 
image. 

(In fact, this code is part of 
a DOES> clause in the Target's 
definition of : . The "patching" 
of Target CPAs by does> 
clauses will be discussed later.) 

The job of the meta- 
compiler's ; is much simpler. It must simply compile the 
address or the Target's ; S word, the run-time routine for ; . 
; S is a CODE definition in the Target. 

A subtle point is illustrated here. Some parts of die 
metacompiler— : and ; ■ — must know addresses of certain 
routines in the Target image. The process of creating the 
metacompiler and the process of creating the 'target image 
are to some extent "iniertwingled." The image Compiler 
takes the expedient of first defining the cross-assembler, then 
the CODE words in the Target, then the rest of the metacompiler. 

3. Alternatives 

a) Metacompiling by INTERPRET 

Of course, "ordinary" Forth does not have words 
which compile themselves. It is the responsibility of 
the text interpreter (INTERPRET or ] ) to "compile the 
word's address into the dictionary." 

The metacompiler could work in tlie same way. A 
"metacompiling" text interpreter could be written. It 
would compile each address — as obtained from the 
mirror word — into the Target dictionary, (As will be 
seen shortly, it is necessary to redefine the interpreter 
loop anyway.) 

The advantage of self-compiling words is that their 
action issomewhat more obvious thana code fragment 
buried inside INTERPRET. Also, the philosophy of "all 
words execute" allows quite a bit of flexibility, and 
some useful "tricks." This will become apparent later. 



Figure Seven. Compiling a colon definition. 
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The entire definition is done in the host's "executing" 
foo and bar are "self-compiling" words. 



state. 



Rule #1 of Metacompiler Design: 

Always keep in mind what you want the result to look like! 



b) T-prefix naming 

The notion of two words named 
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is confusing to 



some, even when they can be distinguished by 
vocabulary. Some systems have used T : to invoke the 
metacompiler. 

While perfectly valid, this is not in keeping with the 
stated goal of minimizing the differences between 
"normal" and metacompiled Forth. Many applications 
will be debugged in a "normal" (resident) Forth envir- 
onment, and then moved to a metacompiler for 
opti mi nation and PROM-ing. Consider the amount of 
editing required to convert every ; to a T :! 

c) Reverse-patching Target code addresses 

Some metacompilers are loaded as a complete unit, 
before any of the Target code is begun. As noted 
above, the metacompiler requires the location of 
certain Target machine code. These conflicting demands 
are resolved by defining Forth variables within the 
metacompiler to hold these special addresses. It is 
necessary to store the correct values in these variables 
before the metacompiler attempts to use them! Oh is 
technique is will be used, for a different Target routine, 
later in die Image Compiler.) 

L The Problem of Numbers 

In addition to previousl y defined words, numbers may be 
used to construct a high-level Forth definition. 

1. Use 

Numbers may be freely intermixed with Forth words in 
a colon definition: 

: name word 1234 wo rd 5678 ,- 
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Faith's aaion on parsing a word from the inpul sUeam is: 
first, check to see if it is an already defined word. If not, then 
check if it is a number in the current base. If not, it is an error. 
Tlie metacompiler works the same way. 

2, Implctnentalion 

Rememlx^ring again the First Rule of Metacompiler 
Design: a number is compiled as two cells in a Forth 
definition. The first cell is the address of an executable CODE 
word, frequently called LIT. The second cell is the number 
itself, which will not be executed. 

The action of LIT when executed will be to fetch the next 
cell — the number — from the instruction stream, and put it on 
Forth's stack. 

Obviously, the meiaco mpi ler m us t pe rform s i milar actions : 
on encountering a number, compile the address of the 
Target's LIT into the Target image, '(hen compile the 
number itself into the Target image. 

The problem lies in how the Host system handles 
numbers. Unlike Forth words, whose com pile -time and run- 
time actions can be changed, the action for numbers is fixed 
in the text interpreter, INTERPRET. 'Ibis action cannot be 
changed without altering the kernel, which is "off-limits." 

Fortunately, the new compile-time action for numbers is 
only required with in the me ta compiler. It is perfectly orthodox 
to redefine the text interpreter before defining the 
metacompiler. The metacompiler will use the latest defined 
version, which can have any desired beliavior. 

Observe that only the " me ta compiling" action for numbers 
need be changed. When a "compiling" interpreter is defined 
separately from the "executing" interpreter, it is usually made 
part of the word ] . (] means "enter the compiling state" in 
all l ; ordi systems; whether this enters an interpreter loop or 
merely sets a flag is system-dependent.) The word : always 
uses ] to enter the compiling state. 

So, a "metacompiling" ] is created, which is used by the 
"metacompiling" : . The Host still remains in the "executing" 
state, and mirror words are Still searched and executed in die 
I last. Only the handling of numbers is different. 

(In the next section, ] will need to affect the state flag, 
as well.) 

Another problem: the metacompiler needs to know the 
location of die Target's LIT, so that the number-compiling 
code can know what to compile. Once again, part of the 
Target code must be assembled before the metacompiler can 
be completed. In this case, however, the Image Compiler 
uses an internal variable, *LIT*, to hold this magic Target 
address. The programmer must store the address of the 
Target lit in *LIT*, before attempting to compile any in- 
line numbers! 

3. Issues 

a) Double precision 

The Foilh interpreter recognizes any integer containing 
a decimal point as a double -precis ion number. 

Usually, double-precision numbers are compiled in- 
line as two single-precision numbers, with the low cell 
first. When this sequence is later executed, the two 
single -precis ion values will be stacked one after the 
other to make a double-precision value, with the high 



cell on top of the slack. 

The Image Compiler's number-handling logic 
(tliteral) examines the value of DPL — left by 
NUMBER— to identify a double-precision number. It 
then compiles one or two single-precision values, as 
required. 

b) Floating point and other literal values 

Similar extensions can be employed to recognize 
floating-point numbers, and oilier in-line literal data 
types. Since Fordi's NUMBER provides no media uism 
to recognize these, NUMBER must be redefined. 

Fortunately, like ihc text interpreter, a new NUMBER 
will replace the old, wherever it is used by the 
metacompiler. 

4. Alternatives 

a) Redefining INTERPRET instead of ] 

There are two schools of thought in the Forth 
community, on how to handle the compiling "state" in 
Forth. 

1) The first school, exemplified by fig-Forth, uses a 
single text interpreter loop, INTERPRET, and a 
stale flag, STATE. INTERPRET is made "state- 
smart," When it parses a word from the input 
stream, it may either compile or execute diat word, 
depending on the value of STATE. 

2) The second school, exemplified by poly FORTH and 

[■"83, uses two interpreter loops. The "executing" 
interpreter is INTERPRET and the "compiling" 
interpreter is ] . There is no need for a STATE flag, 
since the compile vs. execute action is determined 
by which loop is in progress. 

This is not die place for philosophical debates; suffice 
it to say that either approach can be used within tlie 
metacompiler. The former requires the metacompiler 
to redefine INTERPRET. 'Ihe latter requires ] to be 
redefined. 

Note that the metacompiler needn't use the same 
technique as the I lost machine's Forth. For example, 
the Image Compiler uses approach (2), while running 
on a fig-Forth system dial uses CD. (Perhaps a minor 
advantage can be claimed; if the Hosi Forth ABORTS, 
it will restart the "native" INTERPRET, which is the 
same execution interpreter used by the metacompiler 
under approach (2).) 

It is expedient — as will be seen later in this series — to 
maintain a STATE flag for the metacompiler, regardless 



(Article continues in the next issue. Code begins 
on page 22.) 
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"Were Sure You Wanted To Know..." 

Forth Dimensions, Article Reference 151 - $4 0# 

•k An index of Forth articles, by keyword, from Forth Dimensions 
Volumes 1-13 (1978-92). 

FORML, Article Reference 152 - S4 Oft 

j. An index of Forth articles by keyword , author, and dale from the 
* FORMI. Conference Proceedings (1980-9 I). 



FORTH DIMENSIONS BACK VOLUMES 

A volume consists of the six issues from the volume year (May- April) 



Vol inn c 1 [ : orth Dimen s i ons { 1 979-80) 
Las 1 50 Introduction to FIG, threaded code, TO variables, fig- Forth. 



101 -S15 l# 



Vnlume3 Forth Dimensions (1981-82) 103-515 1* 

Last 10 Forth -79 Standa rd , Stack s, H FX , database , music , memory man - 
agent tail, high-level interrupts, string stack, BASIC compiler, 
recursion, 8080 assembler. 



Las 



Volume 7 Forth Dimensions (1985-86) 107 -$20 2# 

Las 1 00 Generic sort, Forth spreadsheet, control structures, pscudo- 
inicmipts, number editing, Atari Forth, pretty priming, code 
modules, universal stack word, polynomial evaluation. F83 
strings. 



Las 



Las 
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Volume 6 Forth Dimensions (1984-85) 106 ■ S15 2# 

1 Q0 Interactive editors, anonymous variables, list handling, integer 
solutions, control structures, debugging techniques, recursion, 
semaphores, simple I/O words. Quicksort, high-level packet 
communications, China FORML 



VolumeS Forth Dim en sion s ( 1 986-87) 108 - S20 2* 

-tQo In terrupt-d riven serial input, data-base functions, XI 99/A, 

XMODF.M, on-line documentation, dual-CFAs, random 

numbers, arrays, file query, Baicher's sort, serecnlcss Forth. 

classes in Forth, Brcsenham line-drawing algorithm, unsigned 

division. DOS tile I/O. 

Volume 9 Forth Dimensions (1 987-88) 109 - $20 2ft 

100 ' : ratla l scapes , stack error checking . perpetual dale routines , 
headless compiler, execution security, ANS -Forth meeting, 
com pule raided instruction, local variables, transcendental func- 
u, relocatable Forth for 68000, 



Volume 10 Forth Dimensions (1988-89) 110-320 2« 

1(10 dBasefilcaccess,stringhandUng,localvariables,dataslnjclures, 
objecl-ori-.-riied Forth, linear :iutun);iln, sland-alonc applications, 
8250 drivers, serial data compression. 

Volume 1 1 Forth Dimensions (1989-90) 1 1 1 - S20 2# 

1 OQ l.ocal variables, graphic filling algorithms, 80286 extended 
memory, expert systems, quaternion rotation calculation, 
i null [processor Forth, doubk-cnlry bookkeeping, binary table 
search, phase-angle differential analyzer, sort contest. 

Volume 12 Forth Dimensions (1990-91) 1 12 - S20 2H 

Lbs 100 Floored division, slack variables, embedded control, Alari Forth, 
optimizing compiler, dynamic memory allocation, smart RAM, 
extended-precision math, interrupt handling, neural nets, Soviet 
Forth, arrays, mctacompilatiort. 



FORML CONFERENCE PROCEEDINGS 

FORMI, (Forth Modification Laboratory) is an educational 
forum for sharing and discussing new or un proven proposals 
intended to benefit Forth, and is an educational forum for discus- 
sion of metechnical assets of appficauons in Forth, Proceedings 
are a compilation of the papers and abstracts pre sen led at the 
annual conference. FORML is pan of the Forth Interest Group. 

1980 FORML PROCEEDINGS 310 
Address binding, dynamic memory allocation, local variables, 
concurrency, binary absoluic & relocatable loader, LISP, how to 
manage Forth projects, n-level file system, documenting Forth. 
Forth structures. Forth strings. 231 pgs 
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1981 FORML PROCEEDINGS 
CODF.-less Forth machine, 
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quadruple-precision arithmetic, 



overlays, executable vocabulary slack, data typing in Forth, 
vectored dala structures, using Forth in a classroom, pyramid 
fi Ics , 11 A S I C , 1 .OGO, auiom a ti c c uc ing 1 an g u age for multimedia , 
K EX OS — a ROM - based m ulutask ing ope rati ng s ystem . fi55 p£,i 

1982 FORMI, PROCEEDINGS 312 
Rockwell Forth processor, virtual execution. 32-bit Forth, ONLY 
for vocabularies, non-lMMEDIATE looping words, number- 
inpui wordsct, 1/0 vectoring, recursive data structures, program- 
mable-logic compiler. 295 pgs 

1983 FORMI, PROCEEDINGS 313 
Non-Von Neuman machines, Forth instruction sel, Chinese 
Forth, F83, compiler & interpreter co-routines, log & exponential 
function, rational arithmetic, transcendental functions in 
variable-precision Forth, portable file-system interface. Forth 
coding conventions, expert systems, 352 pgs 

1984 FORML PROCEEDINGS 314 
Forth expert systems, consequent-reasoning inference engine, 
Zen floating point, portable graphics wordset, 32-bit Forth, 
IIP71B Forth, NFON — object-on etucd programming, decom- 
piler design, arrays and stack variables. 378 pgs 

1986 FORML PROCEEDINGS 316 
Threading techniques, Prolog, VLSI Forth microprocessor, 
natural-languagcinicrfacc.expertsy stem sh ell. i nfe rericcciiginc, 
multiple-inheritance system, automatic programming environ - 
323 pgs 
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1987 FORML PROCEEDINGS 317 
Includes papers from '87 cwoFORML Conference. 32-bit Forth, 
neural networks, control structures, AI, optimizing compilers, 
hypertext, field and record structures, CAD command language, 
object-oriented lisls. trainable neural nets, expert systems. 

463 pgs 

1988 FORML PROCEEDINGS 318 

Includes 1988 Australian FORML, Human interfaces, simple 
robotics kernel, MODUI, Forth, parallel processing, 
programmable controllers, Prolog, simulations, language topics, 
hardware, WiFs workings & Ting's philosophy, Forth hardware 
applications, ANS Forth session, future of Forth in AI 
applications. 310 pgs 

1989 FORML PROCEEDINGS 319 
In eludes papers from '89 euroFORML. Pascal lo Forth, 
exiens iblc opiim izc r fo r compiling , 3 D me asurem en t wit h c*ject - 
onented Forth, CRC polynomials, F-PC, Harris C cross- 
compiler, modular approach to robotic control, RTX re compiler 
for on-line maintenance, modules, trainable neural nets. 4 33 pgs 

1990 FORML PROCEEDINGS 320 
Forth in industry, communications monitor, 6805 development. 
3 -key keyboard, documentation techniques, object -oriented 
programming, simplest Forth decompiler, error recovery, stack 
operations, process control event management, control structure 
analysis, systems design course, group theory using Forth. 

44 J pgs 
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1991 FORML PROCEEDINGS 320 - $50 3# 

mm Includes 1991 FORML. Asilomar, euro FORML '91, 
JdU Czechoslovakia and 1991 China FORML, Shanghai. 
Differential File Comparison, LINDA mi a Simulated Network, 
QS2: RlSCingiiall, A threaded Microprogram Machine, Forth in 
Networking, Forth in ihe Soviet Union, FOSM: A FOrth String 
Matcher, VGA Graphics and 3-D Animation, Forth and TSR, 
Forth CAR System. Applying Forth to F.lcclric Discharge 
Machining, MCS96- FORTH Single Chip Computer, 500 pgs 

BOOKS ABOUT FORTH 

ALL ABOUT F'ORTH, 3rd ed., June 1990, Glen B. Haydon 201 - $90 4# 
Annotated glossary of most Forth words in common usage, 
including Forth -79, Forfh-83, F-PC, MVP-Forth. Implement ion 
examples in high-level Forth and/or 8086/88 assembler. Useful 
commentary given for each entry. 504 pgs 

THE COMPLETE FORTH, Alan Winfield 210 - $14 1# 

A comprehensive introduction, including problems with answers 
(Forth-79). 131 pgs 

eFORTH I M PL EM ENTATION GUIDE, C.H. Ting 2 15 - 525 lfl 

eFonh is the name of a Forth model designed to be portable to a 
large number of the newer, more powerful processors available 
now and becmi i uig av ailable in the near f utu re . 54 pgs (w Alisk) 

F83 SOURCE, Henry Uxen & Michael Perry 2 17 - $20 2# 

A complete listing of FS3, including source and shadow screens. 
Includes introduction on getting started. 20S pgs 

FORTH : A TEXT AND REFERENCE 2 19 - $31 2ff 

Maltlon G Kelly & Nicholas Spies 

A textbook approach to Forth, with comprehensive references to 
MMS-FORTH and the '79 and '83 Forth standards. 487 pgs 

THE FIRST COURSE, C.H. Ting 223 -$25 lfl 

■vhm ihis tutorial's goal is to expose you to the very minimum set of 
UwHU Forth instructions so that you can start to use Forth to solve 
practical problems in the shortest possible time. "... This tutorial 
was developed to complement The Forth Course which skims too 
fast on the elementary Forth instructions and dives too quickly in 
die advanced lupics in a upper level college microcomputer 
laboratory. ..." A running F-PC Forth system would be very 
useful. 44 pgs 

Tl I F. FORTH COURSE, Richard E. Haskell 225 - $25 1* 

Thu set of 11 lessons, called The Forth Course, is designed to 
make it easy for you to leam Forth, The material was developed 
over several years of teaching Forth as part of a senior/graduate 
course in design of embedded software computer systems at 
Oakland Universily in Rochester, Michigan. 156 pgs (w/disk) 



FORTH ENCYCLOPEDIA, Milch Derick & Linda Baker 
A detailed look at each fig-Forth instruction. 327 pgs 



220 $30 2H 



FORTH NOTEBOOK, Dr. C.I i. Ting 232 - S25 2# 

Good examples and applications. Great learning aid. poly- 
FORTH is the dialect used. Some conversion advice is included. 
Code is well documented. 286 pes 

FORTH NOTEBOOK II, Dr. C.H. Ting 232a - $25 2tf 

Collection or research papers on various topics, such as image 
processing, parallel processing, and miscellaneous applications. 

237 pgs 

F-PC USERS MANUAL (2nd ed., V3.5) 350 - S20 1 # 

Users manual to the public- domain Forth system optimized for 
IBM PC/XT7AT computers. A fat, fast system with many tools. 
143 pgs 

F-PC T ECHNICAL REFERENCE MANUAL 351 - $30 2H 

A must if you need to know the inner workings of F-PC. 269 pgs 

INSIDE F-83, Dr. C.H. Ting 235 - $25 2# 

Invaluable for those using F-83, 226 pgs 

LIBRARY OF FORTH ROU1TNES AND UT ILITIES, 

James D. Terry 237 - $23 2# 

Comprehensive collection of professional quality computer code 
for Forth; offers routines that can be put to use in almost any Forth 
application, including expert systems and natural-language 
374 pgs 



OBJECT ORIENTED FORTH, Dick Pountain 242 - $35 1 « 

Implementation of data structures. First book to make object- 
oriented programming available to users of even very small home 

computers. 118 pgs 

SEEING FORTH, Jack Wochr 243 - $25 1# 

"...I would like to share a few observations on Forth and computer 
science. That is the purpose of this monograph. It is offered in the 
hope that it will broaden slightly the streams of Forth literature ..." 
95 pgs 

SCIENTIFIC FORTH, Julian V. Noble 250 - $50 2« 

Scientific Forth extends the Forth kernel in the direction of 
scientific problem solving. It illustrates advanced Forth 
programming techniques with non -trivial applications: 
computer algebra, roots of equations, differential equations, 
function minimization, functional representation of data (FFT, 
polynomials), Linear equations and matrices, numerical 
Integra lion/Mont c Carlo methods, high-speed real and complex 
floaling-poinlari thmetic . 300 pgs (Includes disk wi th program s 
and several utilities). IBM 

STACK COMPUTERS, THE NEW WAVE 244 - $62 2# 

Phdip J. Koopman, Jr. (hardcover only) 
IViscnls an alternative to Complex Instruction Set Computers 
(CISC) and Reduced Instruction Set Computers (RISC) by 
showing the strengdis and weaknesses of stack machines (hard- 
cover only). 

STARTING FORTH (2nd ed.), Ijco Rmdie 245 - $29 2# 

In this edition of Starting Forth— the most popular and complete 
introduction to Forth — syntax has been ex (landed to include the 
Forth -83 Standard, 346 pgs 

WRITE YOUR OWN PROGRAMMING LANGUAGE USING C++, 

Norman Srnith . . , . 270 $15 1# 

This book is about an application language. More specifically, it 
is a bout how to w 1 nto you r own custom app beau on I an g u ag e. 1 he 
book contains the tools necessary to begin the process and a 
complete s ample language implementation. [Gu ess what la nguage I ] 
Includes disk with complete source. 108 pgs 



ACM - SIGFORTH 

The ACM SIG Forth Newsletter is published quarterly by the 
Association of Computing Machinery, Inc. SIG Forth "s focus is 
on the development and refinement of concepts, methods, and 
techniques needed by Forth professionals. 

Volume 1 Spring 1989, Summer 1989. #3. #4 91 1 - $24 2S 

F-PC, glossary utility, euro Forth, SIG Forth "89 Workshop 
summary (real-time software engineering). Intel 80x8x. 
Metacompiler in cm Forth, Forth exception handler, string case 
statement for UF/Forth. 1802 simulator, tutorial on multiple 
threaded vocabularies. Stack frames, duals: an alternative to 
variables. Pocket Forth. 

Volume 2 #1, #2, #3, #4 912 - S24 2# 

A CM SIG Forth Industry Su rvey, abs I racls 1990 Rochester conf . , 
RTX-2000. BNF Parser, abstracts 1990 Rochester conf., F-PC 
leach. Tethered Forth model, abstracts 1990 SIG Forth conf. 
Targct-mcta -cross-: an engineer's viewpoint, single -in struct ion 
computer. 

Volume 3, #1 Summer '91 913a- $6 1# 

Co routines and recursion for tree balancing, convenient number 
handling. 

Vulumc3,#2 Fall '91 913h-$6 If 

Postscri pt Is su e , What i s Postscri pt?. Forth in Postscript, Rev i ew : 
PS-Tutor. 

1989 SICForth Workshop Proceedings 931 • $20 1 * 

Software engineering, multitasking, intcrrupt-d riven systems, 
obj cut-oriented Forth , error recovery an d conl rol , v irt ua I in emory 
support, signal processing. 127 pgs 

1990-91 SIGForth Workshop Proceedings 932 - $20 Iff 

Teaching computer algebra, stack-based hardware, reconfig- 
urable processors, real-time operating systems, embedded 
control, marketing Forth, development systems, in-flight 
monitoring, multi-processors, neural nets, security control, user 
interface, algorithms. 134 pgs 
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DISKS: Contributions from the Forth Community 

r l "he "Contributions from ihe Forth Community" disk library contains 
author-submitted donations, generally including source, fur a variety 
of computers & disk formats. Each file is determined by the author as 

Sublic domain, shareware, or use with some restrictions, litis library 
oes not contain "Tor Sale" applications. To submit your own contri- 
butions, send them to the FIG Publications Committee 

Prices: Each item below comes on one or more disks, indicated in 
parentheses after the item number. Ihe price is S6 per disk or S25 for 
fl j any [jvedisks. 1 to 20 disks = 1 #. 

FLOAT4th.BLK V1.4 Robert L Smith C001 - (1) 

Software floating-point for fig-, poly-, 7!) -Std,, 83-Sul. 
Forlhs. 1F.KE short 32-bit, four standard functions, square 
tool and log. IBM. 



Games in Forth 

Misc. games. Go, TE1RA, Life, 



Source. IBM 
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A Forth Spreadsheet, Craig Lindley C003 
This model spreadsheet first appeared in Forth Dimensions 
VII, 1-2. Those issues contain docs & source. IBM 



Automatic Structure Charts. Kim Harris C004 ■ 

Tools for analysis of large Forth programs, firstprescnicd at 
FOR M L con fe rence . Full source ; d ocs i ncl. in 1 985 FORM [ , 
Proceedings. IBM 

A Simple Inference Engine, Martin Tracy COOS 
Based on inf. engine in Winston & Horn's book on L1SF, 
takes you from pattern variables to complete unification 
a I g ori thrn , wi th ninn i n g comm en la ry on Forth philosophy & 
style. Incl. source. IBM 



(!) 



(1) 
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The Math Box, Nathaniel Grossman 



C(H)6-{1) 



Routines by foremost math aulhorin Forth. Extended double- 
precision arithmetic, complete 32 -bit fixed-point math. & 
auto-ranging text. Incl. graphics. Utilities for rapid 
polynomial evaluation, continued fractions & Monte Carlo 
facto rization. Incl. source & docs. IBM 

AstroForth & AstroOKO Demos, l.R. Agumirsian C007 - (1) 

AslroForlh is the H3-SUJ- Russian version of Forth. Incl. 
window interface, full -screen editor, dynamic assembler & 
a great demo. AstroOKO, an astronavigation system in 
AstroForth, calculates sky position of several objects from 
different earth positions. Demos only. IBM 

Forth List Handler, Martin Tracy C008 - ( 1 ) 

List primitives extend Forth to provide a flexible, high- 
speed environment for AI. Incl. ELISA and Winston & 
Horn's micro- LISP as examples. Incl source & docs. IBM 



SOS I Km bedded Forth, William Payne 



8051 ROMmahle Forth operating system. 80S6-to-8051 
la rget compil er. In cl . source . Docs a re in the book Fmbedded 
Controller Forth for the 805} Family. IBM 



C050 - (4) 



tmCll Collection 

SB] Collection of Forths, Tools and Floating Point 
Aii ihebSHCl) controller. IBM 



C060 - (2) 
for 



FS3 V2.01. Mike Perry & Henry Laxen Cl Of) 

The newest version, ported to a variety of machines, Editor, 
assembler, decompiler, metacompiler. Source and shadow 
screens. Manual available separately (items 217 & 235). 
Base for other F83 applications. IBM, 83. 



(1) 



F-PC V3.53, Tom Zimmcr 



C200 - (5) 



A full Forth system with pull -down menus, sequential files, 
editor, forward assembler, metacompiler, floating point. 
Complete source and help files. Manual for V3.5 available 
separately (items 350 & 351). Base for other F-PC 
applications. Req. hard disk. IBM, 83, 

F-PC TEACH V3.5, 1.essons 0-7 Jack Brown C201a - (2) 

Forth classroom on disk. First seven lessons on learning 
Forth, from Jack Brown of B.C. Institute of Technology. 
IBM, F-PC. 



VP.planncr Float for F-PC. VI. 01 Jack Brown C202 ■ 

Software floating-point engine behind the VP-Planner 
spreadsheet, 80 bit (temporary -real) routines widi transcen- 
dental functions, number I/O support, vectors to support 
numeric co-processor overlay & user NAN checking. IBM, 
F-PC. 
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F-PC Graphics V4.4. Mark Smiley C203a - (3) 

'Ihe latest versions of new graphics routines, including CGA, 
FGA. and VGA suppport, with numerous improvements over 
earlier versions created or supported by Marie Smiley. IBM, F- 
PC, 

PocketForth V 1 .4, Chris lieilman C300 - (1 ) 

Smallest complete Forth for the Mac. Access to all Mac functions, 
files, graphics, floating point, macros, create standalone 
applications and DAs. Based on fig & Starting Forth. Incl, source 
and manual. MAC 

Yerkes Forth V3.6 C3S0 - (2) 

Complete object-oriented Forth for the Mac. Object access to all 
Mac functions, files, graphics. Boating point, macros, create 
standalone applications. Incl. source, tutorial, assembler & 
manual. MAC, System 7.01 Compalable. 

JL1SP V1.0, Nick Didkovsky C401 - (1) 

LISP interpreter invoked from Amiga Jl'orth. The nucleus of the 
inlerprc tcr is the resu It of M a rt i n Tracy ' s work . Extended to allow 
the I JSP interpreter to link to and execute J Forth words. It can 
communicate with JForth's ODE (Objcct-Dcvclopmciit 
Environment). AMIGA, 83. 

Pygmy V 1.3, Frank Sergeant C5O0 - (1 ) 

A lean, fast Forth with full source code. Incl. full-screen editor, 
assembler and metacompiler. Up to 15 files open at a time. IBM. 

KForth, Guy Kelly C600 - (3) 

A full Forth system with windows, mouse, drawing and modem 
packages. Incl. source &. docs. IBM, 83. 

ForST. John Redmond C700 - (1) 

Forth for the Atari ST. Incl. source & docs. Atari ST. 

Mops V2.2, Michael Hore C710 - (2) 

QosecousintoYerkesand Neon . Ve ry f ast, comp ile s s u brou tine- 
threaded & native code. Object oriented. Uses F-Pco- processor 
if present. Full access to Mac tool box & system. Supports System 
7 (e.g., ApplcEvenls), Incl. assembler, docs & source. MAC 

BBL & Abundance, Rocdy Green C800 - (4) 

B B L pu blic-dom ain,32-bitForthwithextcnsivesu pport of DOS, 
meticulously optimized for execution speed. Abundance is a 

d lie-domain database language written in BBL. Req. hard disk. 
. source & docs. IBM HD, hard disk reequired 
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Apple II 521 - August 81 



6502 514 -September 80 
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fiK-FORTH INSTALLATION MANUAL 501 
Glossary model editor— we recommend you purchase this 
manual when purchasing any of the source code listings above. 
61 pgs 

SYSTEMS GUIDE TO fle-FORTH 308 - $25 1# 

C. H. Ting (2nd ed., F989) 

IIow'sandwhy'softhefig-ForthModdbyBillRagsdale.intcmal 
structure of fig-Forth system. 
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Authoritative description or Forth -83 Standard. For reference, not 
instruction. S3 pgs 

BIBLIOGRAPHY OF FORTH REFERENCES 340 - $ 18 2# 

(3rd cd., January 1987) 

Over 1900 references to Forth articles throughout computer 
literature. 104 pgs 



MORE ON FORTH ENGINES 

Volume 10 January 1989 810-515 1# 

RTX reprints from 1988 Rochester Forth Conference, object- 
oriented cmForlh, lesser Forth engines. 87 pgs 

11 July 1989 81I-S15 1# 

RTX supplement to Footsleps in an Empty Volley. SC32, 32-bit 
Forth engine, RTX interrupts utility. 93 pgs 



$15 1# Volume 12 April 1990 



812-S15 IS 



ShBoom Chip architecture and instructions, Neural Computing 
Module NCM3232, pigFonh. binary radix sort on 80286, 68010, 
and RTX2000. 87 pgs 

Volume 13 October 1990 813-S15 1# 

PALs of (he RTX20O0 Mini-HHH. HBFonh, AZFonh, RTX- 
2101, 8086 cForth, 8051 eForth. J 07 pgs 

Volume 14 814 - $15 Iff 

RTX Pocket-Scope, eForth for muP20. ShBoom, eForth for CP/ 
M & 280. XMODEM for eForth. 116 pgs 

Volume 15 815-515 1# 

Moore: New CAD System for Chip Design, A portrait of Ihe P20; 
Rible: QS1 Forth Processor, QS2, RISCing it all; P20 cFcvrth 
Software Simulator/Debugger. 94 pgs 

Volume 16 816 -$15 IS 

OK-CAD System, MuP20, eForth System Words, 386 eForth, ■ii j ii j 
80386 Protected Mode Operation, FRP 1600 - 16Bit Real Time liia-J 
Processor, 104 pgs 

DR. DOBB'S JOURNAL 

Annual Forth issue, includes code for various Forth applications. 
Sept. 1982 422 - 55 1# 

Sept. IS S3 423- $5 1# 

Sept. 1984 424 - $5 1# 
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RTI1000 Programmable Controller 



Park Street, 



Bacchus Marsh, 
Victoria, Australia 3340. 
Tel: 61 53 673155 
Fax: 61 53 674480 



The RTIlOOO is a Forth based controller providing 
three language levels for program development, and 
a real time multitasking/multiuser operating system. 

1. The PC element language is a graphical boolean 
language in which application programs are creat- 
ed by linking together library modules. Users may 
define their own PC elements if required. The 
application program may be represented graphi- 
cally on the VDU and printer as shown below. 

2. FORTH high level language. 

3. 68000 machine code assembler. 
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Hardware 

The KTHOOO is a modular system based on the 6U, 
19 inch rock standard built to withstand harsh in- 
dustrial environments. Input and output modiiles are 
available for digital, analog and pulse type signals. 




Documentation 

• Industrial FORTH technical Manual (245 Pages) 

• 68000 Assembler Manual (222 Pages) 

• PC Elements User Manual (221 Pages) 

• On Line Glossary Supplied In Prom. 



AUTHOR RECOGNITION PROGRAM 



To recognize and reward authors of Forth-related ar- 
ticles, the Forth Merest Grou{) (FIG) adopted the following 
Author Recognition Ingram. 

Articles 

The author of any Forth-related article published in a 
periodical or in the proceedings of a non-Forth conference 
is awarded one years memljership in the Forth Interest 
Group, subject to these conditions: 

a. The membership awarded is for die membership year 

following the one during which the article was 
published. 

b. Only one meml^ership per person is awarded in any 

year, regardless of the number of articles the person 
published in that year. 

c. The article's length must be one page or more in the 

magazine in which it appeared. 

d. The author must submit the printed article (photo- 

copies are accepted) to die Forth Interest Group, 
including identification of the magazine and issue in 
which it appeared, widiin sixty days of publication. 
In return, die audior will be sent a coupon good for 
die following year's membership. 

e. If die original article was published in a language 



other than English, the article must be accompanied 
by an Engish translation or summary. 

Letters to the Editor 

Letters to the editor are, in effect, short articles, and so 
deserve recognition. The autiior of a Forth -related letter to 
an editor published in any magazine except Forth Dimen- 
sions is awarded $10 credit toward FIG membership dues, 
subject to these conditions: 

a. The credit applies only to membership dues for the 

membership year following the one in which the 
letter was published. 

b. The maximum award in any year to one person will 

not exceed the full cost of the FIG membership dues 
for the following year. 

c. 'Ihe author must submit to die Forth Interest Group 

a photocopy of the printed letter, including identi- 
fication of the magazine and issue in which it 
appeared, within sixty days of publication. A cou- 
pon worth $10 toward the following year's mem- 
bership will then be sent to the author. 

d. If the original letter was published in a language 
oilier than English, the letter must be accompanied 
by an English translation or summary. 



Forth Dimensions 



21 



November 1 992 December 



Principles of Metacompilation — code. 



screen I 64 

I IMAGE COMPILER load screen) ( 7 5 90 bjr Zl{53 ) 

: THRU 1 • SWAP DO CR I . .S I LOAD LOOP ! 
65 lord ( vocabularies) 
68 LOAD ( image to target) 

43 I.OAD ( hex files) 71 LOAD ( Image dump) 

72 LOAD ( multiple dictionaries) 

73 LOAD ( SUPERB create and con-^jile) 

74 75 THKI ( create, fwd refs) HOST DEFINITIONS 
45 59 THRU ( SUPERS assembler) 

76 81 THRU ( Image compiler) 

HOST ;S 91 94 THRU { test) HOST ,-S 

91 112 THRU ( SUPERB source code - assembler primitives) 
HOST DECIMAL 84 89 THRU ( SUPERS suuree code - high level) 
HOST DECIMAL 114 153 THRU 

HOST DECIMAL 159 160 THRU { initialization values) 
HOST ;S 



screen f 65 

( Image compiler's vocabularies) ( 7 6 88 bjr 12:15 ) 

: AKA <BUILDS [COMPILE] ' CFA , DOES> @ EXECUTE STOP 
: IMPORT IN 9 <BUILDS IN ! [COMPILE] ' CFA , D0ES> eFXF.CUTE 

STOP 

VOCABULARY HOST IMMEDIATE HOST DEFINITIONS 
AKA NATIVE FORTH IMMEDIATE 
AKA EQU CONSTANT 

VOCABULARY TARGET IMMEDIATE TARGET DEFINITIONS 

HOST IMPORT HOST IMMEDIATE ( must be first defn. in TARGET!) 

HOST IMPORT TARGET IMMEDIATE 



AKA defines a synonym word, usage: AKA newname oldword 

IMPORT defines a synonym word of the same name in the current 
vocabulary. Usage: source -voc IMPORT word 

Vocabulary usage for the image compiler: 
TARGET holds the "symbol" words for all target definitions. It 

also holds target compiler directives and target assembler. 

within TARGET is a vocabulary .ree exactly paralleling the 
vocabulary tree being built in the image. 
HOST is used as an escape to the host's FORTH words. 
FORTH is redefined to return to the root target vocabulary, . .in 

case It's encountered during the target, compilation. 



HOST DEFINITIONS 



screen f 66 

( Image to extended memory, byte-snapped) ( 8 5 90 bjr 9:20 ) 
( for 8086 hosts) 

C33 HEX 1003 » CONSTANT TSEG ( 64K segment for image) 

CODE >< ( n - r.) AX POP, AH U XCHG, 1PUSH 

: T9 ( a - n) TSEG SWAP EL >< ; 

: ice ( a - b) TSEG SWAP CSL ; 

: Tl ( n a) SWAP >< TSEG ROT !L ; 

: TC! ( b a) ISEG SWAP C!L ; 

: >TCMOVE I ■ d n) BOUNDS DO DUP C3 I TC! It LOOP DROP ; 

: INVOKE ( a) U. ?COMP ; ( err msg if exec'ir.g target word) 

DECIMAL 



These words store the target image in 8086 extended memory. 
TSEG Is the segment value for the Image. We assume chat 

the 64K following real-forth is available. 
>< swaps the hi and lo bytes of the top stack item, 

TS TC8 T! TC6 are the cell and byte, fetch and store operators 
into the target image. 

The image byte order is opposite that of the host, 
>TCMOVE copies a string from the host memory to the image. 



screen t 67 
( 1 

( Image to disk, byte-swapped) 
screen « 68 

( Image to target machine, byte- swapped J I S 5 90 bjr 9:29 I 
I for 8086 hosts) 

CODE sc ( n - n) AX POP, AH AL XCHG, 1PUSH 

: Tl ( 3 - n) XADR X8+ >< X8+ OR ? 

: TCS ( a - b) XA^R X@t ; 

: T! ( n a) XADR DUP >< X!+ X! + ; 

: TC! ( b a) XADR X!-? ; 

: >TCMOVE ( s d n) SWAP XADR BOUNDS DO I Ct X!+ LOOP ; 
: INVOKE ( pfa) 2+ e GC AWAIT ; 



screen f 69 
{ ) 

( Image to extended memory, byte-normal) 



screen # 70 
( ) 

( SDMQB to disk, byte-normal) 



screen I 71 

! Irr.ace a.rrp) [ 27 5 88 bjr 10:04 ) 

: (DUMP) \ addr ct | dump as pointed to by reloc 

SPACE BOUNDS DO I TC9 3 ,R LOOP ; 



These words implement Charles Curley's DUMP as parr, of rro 

image compiler. Use HOST DUMP to look at the image. 

Use NATIVE DUMP for the "original" dump of real -Forth morrory. 
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: TASCT \ Addr ct | asci type as pointed to by reloc 

SPACE BOUNDS W I ICS 127 AND DUP 

31. ASCII - WITHIN D- IF DROP ASCII . THEN KMIT IjOOP ; 

; HEAD \ addr — I headder for dump display 
16 DO I OVER * lb AND 3 .R LOOP DROP ; 



\ N. B: Not responsible for negative counts! — the MCI". 
: DUMP \ addr ct 1 dump as pointed to by reloc 

OVER CR 6 SPACES HEAD BEGIN DUP WHILE CR OVER 5 U.R 
2DL'P 16 Milt >R R 2DUP (DUMP) 54 TAB LASC3 
R R> MINUS EH- VTERMINAL IF DROP THEN REPEAT 2 DROP ; 

screen I 72 

( Multiple target dictionaries) ( 4 S 90 bjr 15:48 ) 

( 16 bit addresses) 

HOST DEFINITIONS VARIABLE 'DP 

: DICTIONARY ( org limit) <BUILDS SWAP , , DOES> 'DP I ; 
: DP ( - a) *Df • ; 
: HERE ( * a) DP g ; 

: ?FULL Dp 28 SWAP U< 2 ?ER»CR ; \ error if DP > limit 
: ALLOT < n.) DP * ! ?FUT,L ; 
: T, ( n) HERE T! 2 AIJC? ; 
: TC, in) HERE IC! I ALLOT ; 



VARIABLE CONTEXT D VARIABLE CURRENT VARIABLE VOC-LINK 
: IATEST ( - a) CURRENT t TS ; 

( these variables need to be initialized before compilation) 



screen # 73 

( Supers create and compile) HEX (45 90 bjr 14:37 ) 

( byte-a) Lgnod, same name format as host, same width as host) 

VARIABLE ?KEAD5 \ set for headerless 

: (TCREATE) ? HEADS 8 IF 

HOST HERE NATIVE LATEST 2DUP \ dest, sre adresses 

C8 IF AND WIDTH 8 KIN 1+ DUP \ length 

HOST ALLOT >TCMOVE \ compile name field in image 

HOST IATEST T, \ compile link field in image 

HOST CURRENT @ TI THEN \ change image vocabulary ptrs 

( subroutine threading header) 

\ no header tor subroutine threaded code 

: TCFA ( a - a) ; 

( subroutine threading compile) 

; TCOMP, ( a) 0F6 TC, T, ; \ a super8 subroutine CALL 

: TMAKK, ( - a) OFC TC, HOST HERE T, ; 

DECIMAL 

screen I 74 

( Change execute and compile actions) ( 1 6 88 bjr 17:44 ( 

variable 'MIRROR \ pfa of latest mirror word 
; {:) ! ' : CPA 8 ] LITERAL , ; 

: ACTS: NATIVE HERE 'MIRROR 9 ! J:) 
!CSP NATIVE SMUDGE ) ; 

; ACT [COMPILE] 1 ACTS: NATIVE COMPILE DROP CFA , 
COMPILE ;S SMUDGE [COMPILE] [ ; 

\ : MAKES: NATIVE ] HERE [CCMPILEI DOES> 2+ LATEST PFA CFA I 
\ !CSP NATIVE SMUDGE ; 

HERE 2+ ] DOES> DUP ( 2+ 3 swap) £ EXECUTE [ 

: IMPERATIVE NATIVE LITERAL 'MIRROR 8 CFA 3 [ 2 CSP +! ] ; 



These words manage the dictionary being built in the image. 

DP HERE ALLOT are analogous to their native forth counterparts, 
except that they work In "image addresses'. These words are 
located in the TARGET vocabulary so they can be found 
separately from the native forth words in HOST. 

T, TC, store words/bytes into the Image. 

RDP holds the Imago address of the next available RAM location. 
Separate DP and RDP are needed when compiling for PRCM/RAM. 
RHERE RALLOT operate on the "ram dictionary". 

CONTEXT CURRENT VCC-LDtK contain imago addresses of the 

dictionary being bui'.t. LATF.ST returns the image address of 
the latest definition. (Note the usage: 3 T8 ) 

These TARGET words are analogous to their HOST counterparts. 



These words are CPU- and model-specific code. 

? HEADS il true, causes lioaders to be compiled In the image. 

(TCREATE) builds a header in the image, linking it into the 
image vocabulary. The name for the header Is obtained 
fror. the most recently defined word in the host; thus you 
must define a host "mirror" word first. 

SUPERS NOTE: no code field is compiled; pfa follows link. 
TCFA given a target pfa, returns the target cfa. 
TCCMP, complies a high-level "thread" to a given target adr 

Subroutine thread: compile a CALL to the given adr. 
TMARK, reserves a high-level "thread", and stacks the target 

location of the address field for later resolution. 

(For forward referencing.) 



Each target word has associated with it (in the "mirror" word) 
a "compiling" action and an "executing" action. For most words 
compiling is "compile my address" and executing is "error". 

(:) compiles the cfa for a colon definition in the host. 

This is used to make headerless colon definitions. 

ACTS: changes the "executing" action of. a mirror word. 

Usage: ACTS: word word word ; 
ACT makes the "executing" action identical to an existing word. 

Usage: ACT word 
MAKES: changes the "compiling" action of a mirror word. 

Usage: MAKES: word word word ; 

NOTE that this becomes the executing action as well! 
IMPERATIVE makes the "compiling" action of a mirror word the 

same as its "executing" action. This is akin to IMMEDIATE. 



screen i 75 

( Imago create) ( 8 5 90 bjr 9:21 ) 

: CREATE <3UIL0S (TCREATE) NATIVE HERE 'MIRROR ! 

[ 1 INVOKE CFA ] LITERAL , HOST HERE TCFA ( cfa) NATIVE , 
D0ES> ( a) STATE 13 IF 2+8 TCOMP, ( compile) 

else r?.:p sexecute ( execute) THEN ; decimal 



'MIRROR holds the address of the latest -de fined mirror word. 

CREATE builds a header in the image, and builds a dual -act ion 
word in the host dictionary. When executed in compile state, 
it puts the target word's cfa (Supers: pfa) Into the image. 
The default action tor execute state is an error message. 

After CREATE we have enough of the image cc-pller to compile 
CODE words lassemDler primitives! . 



screen #76 

t Forward references, 16 bit addresses) ( 4 5 90 bjr 15:46 ) 
HOST DEFINITIONS 

: FORWARD <BUILD5 , TMARK, , [ NATIVE HERE 2+ ] 



FORNARC builds a root word for a linked list of forward 
references, when an unknown name is first encountered, 
FORWARD builds a word by that name with a pointer to where 
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DOES> ( a) NATIVE HERE , TMARK, 
OVER S OVER ! SWAP ! I -2 CSP +! ] f 

CONSTANT (FORWARD) 

: KSSOLVE ( pfa a) SWAP BEGIN 2DU? 2+ 8 T! 9 -DUP 0= UNTIL 
DROP ; 

: CREATE IN 8 >R -FIND S» IN ! CREATE 

IF DROP DUP CFA g (FORWARDS - IF ...Resolving" 
HOST HERE TCFA RESOLVE ELSE DROP THEN THEN ; 



its address should be complied . Subsequent references cause 
headerless pointers to be linked onto a list. Last link^O. 
When the word Is finally defined, it should be RESOLVM. 
(Note: IN must be restored after -FIND, to use FORWARD. } 

RESOLVE name fills the forward reference list starting at pfa 

with the given value a . (pfa Is the pfa of the root word 
built by FORWARD.) 

CREATE is redefined so that. If the word already exists as a 
forward reference word, it is resolved with the new era. 



screen * 77 

( Image compiling) HEX ( 4 5 90 bjr 14:41 ) 

HOST DEFINITIONS VARIABLE "LIT* 

: TLITERAL ( d) DPL e 1+ IF SWAP *LIT* 9 TCOMP, T, 
ELBE DROP THEN *LIT* 8 TCQHP, T, ; 

: 7NUMBER ( a - d f) ROT DUP It ca 2D - DUP >R + -1 

BEGIN DPI, : (NUMBER) OVER C9 ASCII . - UNTIL DROP ( d a) 
CG BL = IF R>IF DMINUS THEN 1 ELSE R> DROP THEN ; 

: [ STATE OFF ( [CCMPILE1 HOST) ; 

: ] CO STATE ! BEGIN IN 6 -FIND 
IF ( found) ROT 2DROP CFA EXECUTE 

ELSE NATIVE HERE 7NWBER IF ( number) TLITERAL DROP 

ELSE ( undef) 2DROP IN ! FORWARD THEN 
THEN ? STACK STATE 6 0- UNTIL ; DECIMAL 



•LIT 1 must be filled with the CFA of the LIT primitive, 

before any colon definitions with literals are attempted. 
TLITERAL compiles a single or double literal into the image. 

2NUMBER works like NUMBER, except that it returns a flag 
indicating if the conversion was successful. 

[ sets interpreting state, and sets CONTEXT to HOST so that 
host words have precedence in search order. 

) sets compiling state, and enters the Image compiling loop. 
Words from the input stream are searched (in the TARGET 
vocabulary) and executed. The execution action of a defined 
target word is to compile itself. Other words, such as 
compiler directives, perform their programmed action. 



screen I 78 

( target interpretation) (13 5 90 bjr 17:16 ) 

: D>T ( d) DPL <! 1+ IF SWAP JT ELSE DROP THEN >T ; 

: TINTERPRET BEGIN -FIND 

IF ( found) DROP CFA EXECUTE 

ELSE NATIVE HERE ?NUMBER 0- 2ERR0R { number) D>T 
THEN ?STACK AGAIN ; 

; TQUIT BLK OFF STATE OFF BEGIN 

RP: CR QUERY TINTERPRET ." Tok" AGAIN ; 

: HOT ' TQUIT CFA 'QUIT ! ." Tok" QUIT f 
: COOL ' (QUIT) CFA "QUIT ! . " o*" QUIT ; 



•D0C0L" must be filled with the address of the colon CODE, 
before any colon definitions are made. This is the val^e 

which is stuffed into the CFA of all colon defs. 
SUPERS CNLY: no CFAs; the ENTER opcode is stuffed Instead. 

: sets up for a colon definition in the image, builds the 
header (with the appropriate CFA), then enters compile mode. 

must be filled with the address of the ;S primitive, 
before any image colon definitions are made. 

; ends an image colon definition. 

After ; we have enough of the image compiler to compile simple 
colon definitions. 



screen I 79 

{ Utility words: equ label gap zap seal) (30 5 88 bjr 7:06 ) 
HOST DEFINITIONS 

: SEAL [COMPILE] ■ CFA 2- OFF ; 

\ : ZAP [COMPILE] • NFA BL TOGGLE ; 

\ NATIVE AKA EQU CONSTANT 

\ : LABEL HOST HERE EQU ," 

\ : GAP HOST 2 ALLOT ; ( word machines) 
HEX 

: STOP HOST ?CSP [ ; IMMEDIATE 

: :MMRn!ATN. irosT :n~".r~ risi? to> ■:?, y.gh svia" t^i ; 

DECIMAL 



SEAL name makes this word the end of a dictionary chain. 

ZAP name removes (smudges) this word from dictionary searches 

These are various compile-time directives. 

EQU builds a CONSTANT In the TARGET dictionary, but nothing in 
the image. EQU'd values will not compile, even as literals!! 

LABEL EQU'S the current compile address In the image. 

GAP leaves room in the image for a compiled Forth word. 



screen f BO 

( Support for defining words) ( 7 6 88 bjr 20:22 ) 

V7l:-' 

: (DOES>) R> DUP 2h HOST "MIRROR 3 ! ( host's def'd actn.) 

9 'MIRROR 9 2+ 6 1+ T! ; ( change image's defined action) 

: DOES> NATIVE COMPILE (COES>) TODO 8 , (:) ; 
NATIVE IMMEDIATE 



These words allow the host machine to correctly build "defining" 
and "defined" words In the target. 

TODO holds the ;CODE or DOES> code address just defined in the 
image. 

(DOES>) when executed by the host machine, changes the execute 
action of the most recently defined target word, in the image 
AND in the host's mirror word. The Image's code address is 
set to the contents of TCOO. The host's "execute" vector is 
set to the address inmediately following the (DOES>) . 
D0ES> compiles (DOES>) £ builds a headerless colon definition 
in the host Tor the DOES> action. 

Usage: HOST ACTS: word word word DOES> word word word 



Refer to the target 's source code for DOESJ and ,-CODS . 
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screen * SI 

( Seal target vocabulary) [ 7 6 88 bjr 12:26 ) 

TARGET DEFINITIONS ( first get a few more needed words) 

1 HOST IMPORT CODE 
HOST IMPORT IMMEDIATE 
HOST IMPORT ;S 
HOST IMPORT I 
.HOST IMPORT HEX 
HOST IMPORT \ 
HOST IMPORT STOP 

TARGET SEAL HOST ( now seal at the first word In TARGET) 

HOST ;S 



TARCET is the root ot the "mirrored" dictionary tree, which 
will be built in the host. This tree will hold all of the 
"mirror" words and will exactly duplicate the search order 
of the dictionary being built in the image. 

Once the TARGET vocabulary Is sealed, the only exits are 
HOST to select the HOST vocabulary 

CODE to create a code header and select HOST ASSEMBLER 

Note that the vocabulary must be sealed at Its first definition, 
which in this case Is the Just-defined HOST synonym. 



screen I 82 
screen * 83 

( Test interactive assenMy) I 8 5 90 bjr 9:55 ) 

HOST HEX C030 FFFF DICTIONARY PROM PROM \ origins 

COOF. I£DOUT HERE EQU SI IJ> R8 • OFF LDC OFFF.O R8 

LD R8 I OFF LDC DFFDO R8 ID R8 # QFE UXI 0FFE0 R8 
LD R2 I 4 BEGIN, LDC 0FFD0 R0 NOP NOP NOP NOP NOP 
LDC OFFD0 Rl NOP NOP DEC R2 Z UNTIL, 
RET ;C 
HERE U. 

CODE DEMO LOW RRO f OFO00 LDW RR12 I 1234 LDW RR14 I 0F000 
BEGIN, CALL SI BEGIN, DEC R2 Z UNTIL, 
INCW RRO Z 'JNTIL, RET NOP NOP NOP 

;C 

HOST 



( 7 6 8B bjr 12:26 ) 



screen * 84 

( supers : ; ) 
TARGET CODE : ENTER, HOST | TARGET 

7EXEC !CSP CURRENT 5 CONTEXT ; CREATE -2 ALLOT j ;S 

HOST { 

HOST ACTS: ( a) DROP !CSP NATIVE CURRENT 5 CONTEXT t 
HOST CURRENT 9 CONTEXT ! CREATE -2 ALIOT \ ; 

TARGET : ; ?CSP COMPILE ;S SMUDGE | ;S HOST [ IMMEDIATE 
HOST ACTS; ( a) DROP ?CSP TARGET ;S HOST ( ; IMPERATIVE. 

HOST ;S 



screen I 85 

( Supers dodoes does> (;code) HEX (16 88 bjr 12:30 ) 
TARGET CODE DODOES ( - a) TOS 1+ SP 9 LDEPD, TOS SP 9 LDEPD, 
TOS POP, TOS 1* POP, NEXT, \ pop rtn stack to parm stack 

TARGET : (;CCOE) R> IATEST PFA 2- ! ; 

HOST : ;CCOE HOST ?CSP TARGET (;COOE) HOST HERE TCOO ! 
! ENTERCODE ; 

TARGET : DOES> COMPILE (;CODE) IF C, COMPILE DODOES ; 
IMMEDIATE 

HOST ACTS: [ a) DROP TARGET (;CODE) HOST HERE TCOO ! 
IF TC, TARGET DODOES HOST ; 

HOST ;S 



( 12 11 88 bjr 20:03 ) 



screen (86 

( Supers constant variable) 
TARGET : CONSTANT CREATE SMUDGE , ;CODE 

TOS 1+ SP ? LDEPD, TOS SP S LDEPD, 

IP W LDW, W S TCS LOCI, W 9 TOS 1+ LDC, EXIT, 
HOST ACTS: ( a) DROP CREATE T, 

HOST DOES> (a) 2* » 3 + TS ; 

TARGET : VARIABLE ( n) CONSTANT ;CODE 

TOS 1* SP 3 LDF.PD, TOS SP 9 LDEPD, IP TOS LDW, EXIT, 
HOST ACTS: ( a) DROP CREATE T, 

HOST DOES> (a) 2* 3 3 I ; 

HOST ;S 
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A Forum for Exploring Forth Issues and Promoting Forth 



When I started Fast FORlTIward, I promised to use it to 
share essays about Forth, essays about marketing issues, and 
essays aimed at educating others about Forth. lam pleased to 
be able to share with you the excefyt concerning threading 
models from Jack Woehr's essay "Seeing Forth" in his book by 
the same name. — Mike Elola 

Excerpt from "Seeing Forth" 

by Jack Woehr 
Forth has traditionally a very simple execution engine, but 
the number lofl Forth implementation strategies can Ino] 
longer be counted on the fingers of one hand. There is 
perhaps no other computer language whose execution 
engine exhibits wider and more varied implementations, 
though Pascal, LISP, BASIC and Prolog are certainly contend- 
ers for die crown. 

Forth is described as a virtual machine, a software 
emulation of an imaginary processor which would possess 
an infinitely extensible instruction set. In the ideal machine, 
a routine defined in terms of pre existent operaiions would 
become a member of the microprocessor's instruction set- 
In order to emulate this ideal processor, the traditional 
Forth compilers lay down address lists to be stepped ih rough 
[by the inner interpreter] in the course of executing a Forth 
word (function). These addresses, for the purpose of die 
emulation, correspond to the instruction set of the ideal 
processor. 

I.,.] The hoariest member of the family of Forth inner 
interpreters is the Indirect-Threaded Interpreter. The body of 
a colon definition in an indirect-threaded Forth is constructed 
as follows: 

/addr-of -interpreter/ address/ "address/ address/... 
where 

addr-of -interpreter m the address of a routine which will 
handle the first step of processing the list which follows. 
Usually the interpreter is a nesting routine, which saves 
the Instruction Pointer of the caller on the Return Slack 
and sets the Instruction Pointer to point to the first cell of 
the following list of addresses, 
and 

address is die address of a previously- defined Forth word 
called in the course of executing this definition. 'I he last 
address in the list of addresses may be the address of an 
un nesting routine which pops the former Instruction 
Pointer from the Return Stack. 
November 1992 December 26 



Forth words executed in this manner continue to nest 
downwards into lower- and lower-level words until they 
reach a definition constructed as follows^ 
/ address-of-next-ceW code/ 'code/ code/ code/ 'next/ 
where 

address-qf next-cell is just that, the address of ihe body of 
the definition itself. This definition is code and posesses 
no interpreter which must be pointed to. Simply stepping 
into itself is sufficient, and it will clean up after itself and 
begin the process of nesting back upwards as desenbed 
below, 
and 

code is executable machine code, 
and 

next is either a jump to, or the inline expansion of a 
routine which causes the contents of die cell pointed to 
by the current Instruction Pointer to be fetched and fed to 
die interpretive engine, post- in ere men ting the Instruction 
Pointer in the process. In other words, this level of Forth 
execution is the beginning of the end for a Forth Machine 
Cycle. 

Closely related to the Indirect-Threaded Interpreter is the 
Direct-Threaded Interpreter. The body of a colon definition 
in a direct-threaded Forth is constructed as follows: 
/interpreter-inline/ 'address/ address/ 'address/. . . 
where 

interpreter-inline is the the actual routine that will handle 
the first step of processing the list which follows. As 
above, the interpreter is usually a nesting routine, which 
saves the Instruction Pointer of the caller on the Return 
Stack and sets die Instruction Pointer to point to the first 
cell of the following list of addresses, 
and 

address'ui die address of a previously-defined Forth word 
called in die course of executing this definition. 'Ihe last 
address in the list of addresses may be die address of an 
u nnes ting routine which pops the former Instruction 
Pointer from the Return Stack. 

Once again, Forth words executed in this manner con- 
tinue to nest downwards into lower- and lower-level words 
until they reach a definition constructed as follows: 
/ code/ code/ code/ code/ next/ 
where 
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this definition is code and posesses no interpreter which 
must be pointed to. Execution commences at the first 
instruction cell. Stepping into itself is sufficient, and il will 
clean up after itself and begin the process of nesting back 
upwards as described below, 
and 

code is executable machine code, 
ai id 

next is either a jump to, or the inline expansion of a 
routine wliich causes the contents of the cell pointed to 
by the current Instruction Pointer to be fetched and fed to 
the interpretive engine, post-incrementing die Instruction 
Pointer in the process. In other words, this level of Forth 
execution is the beginning of die end for a Forth Machine 

(Continued on page 32.) 



Benchmarks Wanted 

1 n late July, the Forth Interest Group (FIG) received a 
letter from China, 'lhe Society of Fordi Application Re- 
search (SOFAR) there was organizing a large-scale promo- 
tion of the Forth language. For Forth vendors and oUier 
Forth advocates, here was a gulden opportunity to help 
promote Forth worldwide: 

"We are urgendy in need of material concerning die 
comparisons of Forth widi languages Isuch asl C, Pascal, 
and assembly and other comparisons like arithmetic and 
general processing. 'Iticse are needed in the form of 
performance briefs or testing reports that have source code 
listings, comparisons of length and speed, etc. 

"In addition we would like to know about the fields or 
businesses which have set Forth as dieir standard language. 
(...) We sincerely look forward to your earliest response and 
assistance on diis matter by the 30th of July, 1992. You can 
contact us di rough: 10 Third lange, North Street, XiSSi, 
Beijing, Postal Code 100034, China ." 

My response to SOF'AR has been merely to direct dieir 
request to several of the Forth language vendors, asking 
them to reply directly to SOFAR as well as send me a copy 
of dieir response. So far, I have not received anydiing. 

Information such as that requested is of vital importance 
to support a manager's decision to use Forth. Unfortu- 
nately, it can be difficult to find out how Form measuresup. 

FIG can act as a channel for information supplied by the 
vendors — or FIG can generate its own information. Hither 
way, I think FIG needs to be a supplier of such information. 
I would like for FIG to publish fig-Forth, eFORTH, F83, and 
F-PC benchmark comparisons with assembly language. 
With help from the vendors, I would like to see FIG 
distribute benchmarks of subroutine-threaded, direct- 
threaded, and indirect-threaded Forlhs relative to assembly 
language. FIG should also distribute information regarding 
the performance improvements possible from optimiza- 
tion techniques. I'll gladly organize the information 

Prospective Forth users may not give Forth its due 
consideration if we cannot offer information such as this. 
So if you have any of this information, please mail it to me 
in care of the FIG office. 



JULY-AUGUST 1992 

In July, Creadvc Solutions, Inc. announced a 4.2.2 
release of MacForth® Plus (4.2 shipped last January and 
included Macs Bug Interface, editor enhancements, and 
68040 compatibility). Upgrades range from $5 to $69 
depending on the 4.X version you are upgrading from. As 
of August, they were still offering a $99 upgrade for the 
now-defunct Mach2 Forth with proof of ownership. In 
August, they announced a new Hurdler® card containing 
a SCSI port as well as four serial ports at a limited-dme 
introductory price of $595. 

JULY 1992 

The Saelig Company offers the TDS2020 l6-bit com- 
puter that now accepts up to two TDS2020CM daughter 
boards with removable SRAM card memory for up to 8Mb 
of nonvolative memory. It uses the industry standard 
JEIDA/PCMCIA 68-pin cards, 'lhe T0S2O2O includes 10-bit 
A/D, real-time dock, and interfaces for keyboard, LCD, 
and graphics LCD. A related product is the TMB-200-03 
which plugs into a PC to provide a ThinCard drive that 
accepts the JE1DA/PCMCIA card memories, 

AUGUST 1992 

Bradley Forth ware announced Forthmacs-386, a 32-bit 
Forth similar to die 680x0 and SPARC workstation versions 
of the same product. DOS Extender capability is included 
to provide a full 32-bit environment under DOS, DESQview, 
and Windows. A ROMable version was also announced. 

Forth, Inc. announced a S 195 evaluation version of its 
EXPRESS Event Management and Control System™, a 
process-control software package. Express Lite can exer- 
cise all EXPRESS functions. For example, the graphics 
subsystem can be used to create a visuai representation of 
any of your controlled devices in such a way that it is 
updated to reflect its simulated status. Although I/O drivers 
are lacking, up to 256 I/O points can be simulated. It also 
comes with the EXPRESS Technical Manual, 'lhe full 
package sells for $6,875. 

Companies Mentioned 



Bradley Forth ware 
P.O. Box 4444 

Mountain View, California 94040 

Phone:415-961-1302 

Fax:415-962-0927 

Forth. Inc. 

111 N. Sepulveda Blvd 
Manhattan Beach. 
California 90266-6847 
Phone: 310-372-8493 
Fax:310 31B-7130 



Creative Solutions, Inc. 
4701 Randolph Road, Suite 12 
Rockville, Maryland 20852 
Phone: 301-994-0262 



The Saelig Company 
1193 Moseley Road 
Victor, NewYork 14564 
Phone: 716-425-3753 
Fax: 716-425-3835 
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Forth Tutorial, Lesson #J 



Character 
Graphics 



C.H. Ting 

San Mateo, California 



Tliis lesson uses the simplest examples to illustrate the 
principles of Forth programming: building new instruc- 
tions from the existing instruction set. 

We will use the simple Forth instruction . " xxxx" to 
display characters on the screen, and will also use it to build 
an instruction set which will allow us to construct any block 
characters on the screen. 

To illustrate the use of the . " instruction, let's write the 
first Forth program: 



hello 



Hello, world!" 



Now, when you type the word hello and a return on 
your keyboard, the characters Hello, world! will appear 
folowing your typed hello. 

Explanation: 

: Start a new instruction 

hello Name of the new instruction 

Frint the character string until, but not including, 

the next " 

Terminate the new instruction 

Hello is now a new instruction whose function is to 
print the string Hello, world/ to the screen. This is the first 
program most computer courses use to introduce you to a 
computer language. 

Now, what we want to do next is to use this simple 
technique to display large, block-shaped English alphabets 
on the screen. 

Let's use the letter F as an example: 



*****" 

* H 



: bar cr 
: post cr 
: F bar post bar post post post ; 

Type the letter F followed by a carriage return on your 
keyboard, and you will see a large F character displayed on 
the screen, like this: 



Here we recognize that the character F has two compo- 
nents: a bar composed of five asteriks and a post which can 
be represented by one or more single asterisks. Therefore, 
we define two new instructions bar and post which, 
respectively, display five asteriks and one asterik. 'Ihe final 
instruction F can then be defined, which displays a bar, a 
post, a bar, and then three posts. 

The instruction cr starts a new line and causes the 
subsequent characters to be displayed from the left margin 
of the screen. 

Exercise 1: Using the new instructions bar and post, 
define new instructions C, E, and L which display the 
corresponding block characters on the screen. 

Exercise 2: Analyze your own surname. Define a set of 
instructions like bar and post and use them to construct 
all the characters in your surname. I will construct my name 
TING as an example: 



center cr 
sides cr 
triadl cr 
triad2 cr 
triad3 cr 
triad4 cr 
quart cr 
right cr 



* *« 

* * * ii 
** * " 

* * * ii 
** * ii 

* * * * " 

* * * * " 



: T bar center center 

center center center center ; 

: I center center center 

center center center center ; 

: N sides triad2 triad2 

triadl triad3 triad2 sides ; 

: G triads sides post 

right triadl sides triad4 ; 

: TING T I N G ; 

Exercise 3: It is easy to construct English alphabets this 
way. The question is, how many primitive instructions arc 
needed to construct all the 26 upper-case letters in this 5 
x 7 block format? How about the other characters? 

Exercise 4: In principle, we can construct all the Chinese 
characters using similar techniques. However, most Chi- 
nese characters require an enlarged 16 x 16 block format; 
the more complicated Chinese characters may require a 
24 x 24 block. Try to construct a few simple Chinese 
characters using the 5 x 7 format. 
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Dr. C.H. Ting is a noted Forth authority who has made rnany significant con (rib u- 
tions lo Forth and trie Forth Interest Group. His tutorial series will continue in 
Succeeding issues of Forth Dimensions. 
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Styling Forth to 
Preserve the 
Expressiveness of C 



Mike Elola 

San Jose, California 



Part of the expressiveness of other programming lan- 
guages arises from their syntaxes for function calls and 
expressions. These syntaxes help "package" the flow of 
function parameters in a way that is easily distinguished. 

Most programming languages use one syntax format for 
function calls, one syntax format for conditionals, and one 
syntax format for expressions. C is no exception. 

The code that is packaged as C expressions always 
generates a single value. This property of expressions is of 
key importance. Expressions may be very simple, as exem- 
plified by a variable reference. Or they may be very complex, 
such as wtien they use nested expressions. Nevertheless, 
they are all ultimately reduced to a single value by various 
binary and unary operations. This packaging lends the 
programmer an easy "handle" with which to recognize the 
processing of values and the flow of parameter values into 
various called routines. 

Sometimes parentheses are used to package expressions 
as part of their incorporation into other units. For example, 
parentheses appear around expressions that are part of the 
syntax for branch and loop conditionals. Various syntax 



Consider the boost 

we'd enjoy if Forth compiled 

C source code... 



formats are thereby combined, yet il is easy to see where one 
ends and the next begins. 

Besides its simplicity, Forth 's freedom from multiple 
syntax formats — and its freedom from symbols reserved for 
distinguishing between them — is the source of some confu- 
sion regarding where parameter values are being generated 
and where they are being consumed (see Figure Cine- a). 
Stack comments are an attempt to make up for the lack of 
visual cues (Figure One-b), but they are not always provided. 

As you declare a C function, you also declare how 
references to it will appear as enforced by the compiler: each 
of its input parameters must be separated by a comma, and 
no more and no less man die declared number of parameters 
must be supplied (each of the correct declared type). 

However, for most arithmetic operations, an algebraic 
syntax formal is fashionable. In that notation, the generation 
and passing of parameters lacks the delimiting symbols th3t 
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are a requirement for the use of functions. 

Because we are able to recognize unary and binary 
arithmetic operations and properly ascertain their input 
parameters within algebraic notations, many languages do 
not require us to write code only using a function-oriented 
syntax. Nevertheless, most languages leave us the ability to 
create a purely functional syntax. By declaring a function for 
addition, for example, we can write the following code: 
add (1,1). 

Switching to a functional syntax may be considered a 
partial step towards (Forth) postfix notation. Forth has taken 
a bigger step towards a uniform syntax by abandoning 
support for algebraic notation. Nevertheless, Forth hangs on 
to die symbols of algebraic notation as the names of its 
functions. As long as most languages continue to define those 
symbols as infix arithmetic operators, they cannot allow you 
to redefine those symbols as the names of functions. 
Generally, you cannot expect to use code such as: + ( 1 , 1 ) . 
Fonh offers more freedom in the names you assign to 
functions due to its relative lack of reserved meanings for 
symbols. 

C shows a slight movement in die direction of syntax 
consolidation, particularly if you look at its repetition con- 
structs that have been packaged as functions, such as 
while ( ) and for { ) loops. For its conditional statements, 
however, C still resorts to an alternate format involving open 
and close braces around blocks of code. Forth docs a more 
thorough job of integrating its language elements into a 
uniform syntax format. 

Kegularizauon steps such as these are what have led to 
Forth's simplicity and compactness: it abandons support for 
several syntax formats, streamlining its parsing requirements. 
While most of the accompanying effects are good ones, there 
might have been undesired consequences. We may be 
overlooking how a simpler parsing model has impaired the 
expressiveness of Forth source code. 

Taken together, these two measures afford levels of 
expressiveness that Forth cannot equal: (1) the use of 
parentheses for subexpressions that generate values; and (2) 
the use of parentheses and commas to distinguish the end, 
the beginning, and the continuation of input parameters for 
a function. Statements such as 

printf("The value is: %i", int (sqrt (3) > 
29 November 1992 December 



convey clearly how many parameters are passed to each 
function and what happens with the values returned by each 
of the functions. Furthermore, the notation is very compact. 

How clear is it that PRINTF in Figure One-a requires two 
slack parameters? The misleading visual cues in Figure One- 
a suggest two unary functions, one (SQUARED) that takes a 
number as its input and another (PRINTF) that takes a string 
as its input. Forth code needs to make clear how many par- 
ameters are being passed to each routine. Stack comments are 
the usual way we go about this, as shown in figure One-b. 



Figure One-a. 






3 SQUARED 






"The value 


is: 


%i" PRINTF 


Figure One-b. 






3 SQUARED 






"The value 


is: 


%i" 


{ product addr 


— ) PRINTF 



The coexistence of several syntaxes in languages such as 
C contributes to the easy visual subdivision of source code, 
improving its readability. You can easily subdivide such code 
into spaas that correspond to the generation of values and 
spans that correspond to the consumption of values, with 
reserved symbols punctuating the various transitions. Since 
many programmers have strong mailt backgrounds, they 
learn this notation quickly and view it in a friendly way. 

So expressiveness is largely a matter of packaging, 
furthermore, Forth 's syntax fails to package code so that the 
flow of parameters is unmistakable. 

These concerns prompted me to take up the challenge of 
designing a new Forth styling convention. 

Styling Forth for Parameter Flow 

Our indentation of Forth code provides important cues 
about the start and end of a control-flow construct. I propose 
that we also use indents to provide visual cues about the start 
and end or a block of code that generates the parameters for 
a Forth routine. spent considerable time trying to coerce 
other symbols to serve the same purpose, but I had no 
success.) 

The startling — or perhaps amusing — part of this pro- 
posed indenting convention is that it is a postfix convention, 
since input parameters always precede the Forth word that 
uses them, furthermore, any code that generates parameters 
is placed on its own line to help distinguish parameter 
generation as well as in a C function call— where commas 
serve a similar purpose. The result is postfix indents that arc 
part of a vertically oriented specification: 
3 

SQUARED 

"The value is: %i" 
PRINTF 

To make the format of the code less vertical and 
somewhat more compact, consider placing any unary opera- 
tion on the same line as the code that generates its input — 
but still allow a separate tine for the duo: 
3 SQUARED 

"The value is: %i" 



PRINTF 

This styling convention looks its silliest when we write 
simple arithmetic expressions: 
3 
4 

* 
2 

+ 

While I don't expect these conventions to win immediate 
favor, (hey could help someone learning Forth. If a uniform 
syntax is a Forth virtue, then a uniform indenting convention 
can also be a virtue, despite its occasional spaciousness. 

A Pretty-Printer Challenge 

Rather than enter code according to these style guide- 
lines, we could develop a pretty printer to create the 
indentations. (This is left as an exercise for the reader, as 
usual.) 

Such a tool would help make all prior Forth code more 
expressive, regardless of the originator's reluctance to in- 
clude stack comments. Further, such a tool will suggest how 
we might create source-code checkers that can detect stack 
errors without debugging effort. 

To make the pretty printer even more challenging, 
consider thai Furih source code typically contains slack- 
manipulating words that introduce artificial separation be- 
tween input parameters and the routines that use them, for 
example, try adding parameter-flow indentations to the 
following code: 
4 
6 

SWAP 

8 
* 

+ 

One solution might be to introduce comments lo show 
the values that were unprocessed, yet were specified in 
positions that made them appear as if they would be 
processed: 

4 
6 

SWAP ( 
4 ) 
8 

* ( 

x 

6 ) 

+ 

A Way to Eliminate Forth's Stack Operators 

Because every expression and every function in C 
generates one and only one value, I anticipate that the 
conversion of C programs to forth will never require forth's 
stack operators. 

The only occasion when a value may be generated in the 
wrong position on the stack is when an expression or 
function is able to generate more than one value (which they 
cannot do in languages such as C). With the extra flexibility 
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MEET THAT DEADLINE ! ! ! 

• Use subroutine libraries written for 
other languages! More efficiently! 

• Combine raw power of extensible 
languages with convenience of 
carefully implemented functions! 

• Faster than optimized C! 

• Compile 40,000 lines per minute! 
(10 Mhz 286) 

• Totally interactive, even while 
compiling! 

• Program at any level of abstraction 
from machine code thru application 
specific language with equal ease 
and efficiency! 

• Alter routines without recompiling! 

• Source code for 2500 functions! 

• Data structures, control structures 
and interface protocols from any 
other language! 

• Implement borrowed features, more 
efficiently than in the source! 

• An architecture that supports small 
programs or full megabyte ones 
with a single version! 

• No by zanti ne sy n tax req uir em en t s ! 

• Outperform the best programmers 
stuck usi ng conventional languages! 
(But only until they also switch.) 

HS/FORTH with FOOPS - The only 
full multiple inheritance 
interactive object oriented 
language under MSDOS! 

Seeing is believing, OOL's really are 
incredible at simplifying important 
parts of any significant program. So 
naturally the theoreticians drive the 
idea into the ground trying to bend all 
tasks to their noble mold. Add on 
OOL's provide a better solution, but 
only Forth allows the add on to blend 
in as an integral part of the language 
and only HS/FORTH provides true 
multiple inheritance & membership. 

Lets define classes BODY, ARM, and 
ROBOT, with methods MOVE and 
RAISE. The ROBOT class inherits: 

INHERITS BODY 

HAS> ARM RightArm 

HAS> ARM LeftArm 
If Simon, Alvin, and Theodore are 
robots we could control them with; 
Alvin 's RightArm RAISE or: 
+5 -10 Simon MOVE or: 
+5 +20 FOR -ALL ROBOT MOVE 
The painful OOL learning curve 
disappears when you don't have to 
force the world into a hierarchy. 



WAKE UP ! 1 1 

Forth need not be a language that 
tempts programmers with "great 
expectations", then frustrates them 
with the need to reinvent simple tools 
expected in any commercial language. 

HS/FORTH Meets Your Needsl 

Don't judge Forth by public domain 
products or ones from vendors 
primarily interested in consulting - 
they profit from not providing needed 
tools! Public domain versions are 
cheap - if your time is worthless. 
Useful in learning Forth's basics, they 
fail to show its true potential. Not to 
mention being s-l-o-w. 

We don't shortchange you with 
promises. We provide implemented 
functions to help you complete your 
application quickly. And we ask you 
not to shortchange us by trying to 
save a few bucks using inadequate 
public domain or pirate versions. We 
worked hard coming up with the ideas 
that you now see sprouting up in other 
Forths. We won't throw in the towel, 
but the drain on resources delays the 
introduction of even better tools that 
could otherwise be making your life 
easier now! Don't kid yourself, you are 
not just another drop in the bucket, 
your personal decision really does 
matter. In return, we'll provide you 
with the best tools money can buy. 

The only limit with Forth is your 
own imagination! 

You can't add extensibility to fossilized 
compilers. You are at the mercy of 
that language's vendor. You can easily 
add features from other languages to 
HS/FORTH. And using our automatic 
optimizer or learning a very little bit 
of assembly language makes your 
addition zip along as well as and often 
better than in the parent language. 

Speaking of assembler language, 
learning it in a supportive Forth 
environment virtually eliminates the 
learning curve. People who failed 
previous attempts to use assembler 
language, often conquer it in a few 
hours using HS/FORTH. And that 
includes people with NO previous 
computer experience! 



HS/FORTH runs under MSDOS or 
PC DOS, or from ROM. Each level includes 
all features of lower ones. Level upgrades: 
$25. plus price difference between levels. 
Source code is in ordinary ASCII text, files. 

HS/FORTH supports megabyte and larger 
programs & data, and runs as fast as (Mk 
limited Forths, even without automatic 
optimization ■- which accelerates to near 
assembler language speed. Optimizer, 
assembler, and tools can load transiently. 
Resize segments, redefine words, eliminate 
headers without recompiling. Compile 79 
and 83 Standard plus F83 programs. 

PERSONAL LEVEL $299. 

NEW! Fast direct to video memory text 
& seal ed/clippod/windo wed graphics in bit 
blit windows, mono, cga, ega, vga, all 
ellipsoids, splines, bezier curves, arcs, 
turtles; lightning fast pattern drawing 
even with irregular boundaries; powerful 
parsing, formatting, file and device I/O; 
DOS shells; interrupt handlers; 
call high level Forth from interrupts; 
single step trace, decompiler; music; 
compile 40,000 lines per minute, slacks; 
file search paths; format to strings, 
software floating point, trig, transcen- 
dental, 18 digit integer & scaled integer 
math; vara: A B * IS C compiles to 4 
words, 1..4 dimension var arrays; 
automatic optimizer delivers machine 
code speed, 

PROFESSIONAL LEVEL $399. 

hardware floating point - data structures 
for all data type3 from simple thru 
complex 4D var arrays - operations 
complete thru complex hyperbolics; 
turnkey, seal; interactive dynamic linker 
for foreign subroutine libraries; round 
robin & interrupt driven multitaskcrs; 
dynamic string manager; file blocks, 
sector mapped blocks; x86&7 assemblers. 

PRODUCTION LEVEL $499. 

Metacompiler: DOS/ROM/clirect/indirect; 
threaded systems start at 200 bytes, 
Forth cores from 2 kbytes; 
C data structures & strucl+ compiler, 
MetaGraphics TurboWindow-C library, 

200 graphic/window functions, PostScript 
style line attributes & fonts, viewports, 

ONLINE GLOSSARY $ 45. 

PROFESSIONAL and PRODUCTION 
LEVEL EXTENSIONS: 

FOOPS+ with multiple inheritance $ 79. 
TOOLS & TOYS DISK $ 79. 

286FORTH or 386FORTH $299. 

16 Megabyte physical address space or 
gigabyte virtual for programs and data; 
DOS & BIOS fully and freely available; 
32 bit address/operand range with 386. 
ROMULUS HS/FORTH from ROM $ 99. 

Shipping/system; US; $9, Canada; $21. 
foreign; $49. We accept MC, VISA, &. AmEx 



of one routine generating multiple outputs comes the 
possibility that other routines may require the same param- 
eters to be supplied in an alternate sequence. 

This suggests that one way to rid Forth of its slack 
operators is to exclusively define words that generate no 
more than one parameter This imparts to Forth the nota- 
tional granularity needed to give back control of stack 
configuration (or parameter flow) through notational means: 
you merely order your code to reflect how you want the 
stacked parameters ordered 

Benefits of the Verbosity Requirements of C 

In C, each item in die input parameter list of a function is 
filled by an expression — and an expression must always 
produce exactly one value. This conespondence lielps 
generate dynamic syntax requirements for each function call 
that must be satisfied: you must always call the function in 
a consistent manner by specifying an expression for each of 
its declared parameters. 

In C, the flow of parameters cannot fx: factored across two 
routine?; — the way they can in Forth — at least not notationally. 
In Forth, we are free to compile definitions where there is no 
mention of missing inputs. Even though MOD requires two 
parameters, we are free to compile the following definition 
of MOD 6, in which the missing parameter for MOD becomes 
an input requirement for the declared routine, MODS: 

: MOD 6 6 MOD ; 

The same level of factoring granularity is available in C, 
but the code must Yxt written more verbosely: you must 
explicitly specify all of the input parameters that flow into 
each called routine. Notationally and otherwise, there can be 
no mistaking the fa a that a modulus operation requires two 
parameters. So C requires the explicit specification of both 
inputs for the modulus operation, aided by a placeholder that 
represents the input parameter supplied to MOD 6. 

/* code that once compiled can */ 
/* be linked into numerous appli- */ 
/* cations without redefinition. */ 

MOD 6 ( input ) 

int input; 

1 

return (input % 6) ; 

1 

Comparatively, the Forth notation Ls abbreviated. TTiis 
helps afford Forth its macro-assembler feel. 

I fear that this short-cut has also inhibited the develop- 
ment of Forth libraries. I feel that a Forth library mechanism 
should be created that can faithfully match the features of C 
libraries. 

Looking Forward 

Whereas the evolution of the many other programming 
languages tends to reveal an incremental refinement of 
earlier ones, Forth seems to be a major departure from its 
peer languages. To help demystify Forth to others, we need 
to note its similarities to other languages as often as we can. 
The indentation styling I have suggested adds visual cues to 



Forth code such that it becomes much easier to correlate 
Forth code to that of other languages. 

Another helpful exercise is to try to translate C source 
code into Forth. Such an exercise should make clear further 
similarities and differences between these two languages. 

This article could be considered an introductory one in a 
series focused on the issues of translating C to Forth. I do not 
feel adequately qualified for that undertaking. Perhaps it can 
take the form of an article contest. 

Consider the boost we might enjoy if Forth supported the 
compilation of C source code as a readily available option. 
For example, we could decisively lay to rest the old argument 
that there are loo few Forth programmers to support Forth. 



(Fast Fortbward, continued from page 27.) 

There are a variety of means whereby direct threading is 
implemented. On a typical Complicated Instruction Set 
(CISC) processor, all interpreters are carefully designed to be 
compact and speedy, since they are compiled inline every 
time the Forth system lays down a colon definition in the 
dictionary. 

The Zilog 2880 (Super 8} took another approach, dedi- 
cating a set of registers to the emulation of the Forth virtual 
machine and providing the one-byte opcodes ENTER ("nest"), 
EXIT ("unnesl") and NEXT in microcode on the processor 
itself. 

Another form of threading commonly used on advanced 
microprocessors such as the 68000 is Subroutine Threading. 
A subroutine -threaded Forth possesses colon definition 
bodies which arc pure assembly code. The typical call-by- 
address scheme of Forth compilation is implemented in 
machine-code subroutine calls to the CFAs of called defini- 
tions. As the entire body of every definition, code or colon, 
compiles down to code, there is much latitude for a smart 
compiler to optimize by inline expansion of short definitions 
instead of call compilation. 

There are also Token -Threaded Forths, where addresses 
refer to enuies in a jump table which contains the actual hard 
adresses where the code resides. 

And finally, there are the "Silicon-Threaded" Forths, 
where the instruction set of the processor and its call 
mechanism are designed to suit the peculiarities of Forth. The 
Novix, the Harris RTX Series, and the Silicon Composers SC32 
all implement decoding logic which decides if an instruction 
is an address call or a machine instruction depending on the 
state of certain bits in the instruction. The result of this scheme 
is the fastest execution speeds obtainable for threaded code. 

The arbitrary categorization performed in tfie above 
paragraplis is by no means exhaustive. What arc we to call, 
for example, William "Mitch" Bradley's CForth83, a Forth 
system primarily aimed at *XIX systems, in which the user 
dictionary is JSR-'ltireaded but the kernel is a gigantic C- 
language "switch" statement? 
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Backburner code. 8051 assembler (see article, pages 38-39). 



index 

600 8051 assembler/primary load block 
001 8051 assembler/secondary load block 

602 support 

603 virtual array support 

604 revectored NUMBER 

605 operand definition 

606 operand vectoring 
60V operand vectoring 
608 vector definition 
60S vector definition 

610 destination vectoring 

611 instruction definition 

612 instruction classes 

613 instructions 

614 instructions 
61b instructions 

616 instructions 

617 vectors 

618 vectors 

619 vectors 

620 vectors 

621 vectors 

622 vectors 

623 vectors 

624 vectors 

625 vectors 

626 vectors 

block 600 

( 920910/8051 assembler /primary load block) 

1 { support) 602 603 THRU 
7 ( application) 601 LOAD 
3 

4 

5 ( initialization) ' fNUMBERl 'NUM3F.R ! 
6 

7 EXIT 
8 

9 current memory requirement above FORTH nucleus £ eiectives: 
10 13 547 bytes 
11 
: :- : 

13 

: 4 
lb 

block 601 

( 930910/BO51 assembl er/secundaiy load block) 

1 ( operand definition) 605 LOAD 

2 ( redefined NUMBER > 604 LOAD 

3 ( operand vectoring) 60 6 607 THRU 

4 ( vector definition) 608 609 THRU 

5 ( destination vectoring) 610 LOAD 

6 ( instruction definition) 611 LOAD 

7 ( Instruction classes) 61? LOAD 

8 ASM DEFINITIONS 

9 { instructions) 613 616 TKR'J 

10 FORTH DEFINITIONS 

11 ( vectors) 617 626 THRU 
12 

! 3 
! -5 
] 5 
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block 602 

{ 920910/aupport) HEX 

1 : FORGST f! {NUMBER) ' NUMBER ! FORGET ; 

2 : mVil ['I (NUMBER) 'NUMBER ! EMPTY ; 
3 

4 00 IB VOCABULARY ASH 

5 

6 : CC ON ST ANT [ C] CREATE C, DOES> ( - C) C6 ; 
1 

8 VARIABLE <BASE> 

9 : .S BASE 8 <BASE> ! HEX . $ <BASE> S BASE ! 
10 

11 
12 
13 

15 



block 902 

FORGET is redefined to accommodate the reveetorinc of NUMBER 

1 EMPTY is redefined to accommodate the revectoring of number 
2 

3 vocabularies already defined or reserved in S0B6 polyFORTH: 

4 normal use: 0001 FORTH 0013 ASSEMBLER 0015 EDITOR 

5 mclacompilation: 0071 FORTH 0017 HOST 0119 ASSEMBLER 

6 8051ASM specifies a vocabulary linked to the vocabulary FORTH 

1 

B ^constant provides a byte-si *e constant 
9 

10 <6aSE> preserves the value of BASE during stack display 

11 .S is redefined to display the stack in hexadecimal and Chen 
I? return to the previous tumeric base 

13 

IS 
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block 
1 



24 



1 

2 : 

3 ; 

4 : 

5 : 

6 : 

7 : 

8 : 
9 

10 : 
11 
12 : 
13 

14 ( 
lb 



603 

920 910/ virtual array support) 
03 CONSTANT VARRAY 
VH ( - a) VARRAY BLOCK ; 
VHERE ( - II) VH 8 ,* 

VADDRESS ( clem - a) 1024 /MOD VARRAY 4 BLOCK * 2+ 

VC! { c elem) V ADDRESS C! UPDATE ,- 

vcB { Hlem - cl vaddress ce ; 

VC, ( c) V4ERF, VC! UPDATE 1 VH +! UPDATE r 

VSTORE ( n) DO VC, LOOP ; 

VDUMP BASE 9 <BASE> ! HEX VHERE 7DUP IF 

DO I VC@ D, LOOP THEN <BASE> S BASE ! ; 
VFORGET VH ! UPDATE ; 

Initialization) VFORGET 



block 903 

VARRAY names che first block of the virtual array residing in 

1 an MS-DOS file at the specified offset in the FORTH bloc* nap 

2 VH obtains the block buffer address of the array pointer 

3 VHERE returns the array pointer, kept in the first cell of the 

4 array; the pointer is the number of the next availahls byte 

5 V ADDRESS takes an element number ana returns the corresponding 

6 block buffer address; the 2* skips over the array pointer 

7 VC! sterns a byte at the specified byte offset in the array 

S VC! fetches a byte frost the specified byte offset In the array 
9 VC, stores a byte into the next available position in the array 

10 And advances the array pointer 

11 VSTORE stores the specified lumber oi bytes from the slack into 

12 the array 

13 VDtlHP displays the array, up to the current value of the array 

14 pointer; the array is displayed in hexadecimal 

lb VFORGET resets the array pointer 



bloc* 

( 

1 : 
2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 



604 

920910/revectored NUMBER ) 
(NUMBER] j NUMBER) 1 SEQUENCE 



block 904 
| NUMBER ] 
1 

i. 



Is a modification of the vectored routine 



(NUXRERI ; 

encounter of a data or address byte sets SEQUENCE to 1, but 
does not alter either byte of OPERANDS ; this modification 

3 allows the assembler to discriminate between instructions of 

4 the form (data) (operand) (mnemonic) and those 01 the form 

5 (operandi (data) (mnemonicl ; otherwise, the single operand 

6 would always leave its value In the first byte of OPERANDS ; 

7 CAUTION; before EWPTYing the dictionary or FORGETting the 

a application, NUMBER must be revectorcd to (NUMBER) or the 
9 system will crash, since forgettinq the application will aiso 

10 forget [NUMBER] ; thus, for safety, EMPTY and FORGET have 

11 been redefined to accomplish this; to speed loading, the 

12 initial revectorlng to [NUMBER! is done after the 

13 application has been loaded 



block 605 

( 920910/operand definition) HEX 

1 CVAR TABLE CLASS 

2 VARIABLE SEQUENCE 

3 : ? FIRST ( - n) SEQUENCE DUP 8 1 ROT ! 

4 CREATE OPERANDS 2 ALLOT 

5 : :0 ( o) cconstant 

6 DOES> C? 2FIRST OPERANDS > C ! ; 

7 ASM DEFINITIONS 



1C 



11 OA 

12 OE 

13 10 

14 ( 14 



I 

8R0 
E0 

R4 

SA 

DPTR 
O /I 



2 
5 
7 
0B 
Ot 
11 



:0 A 

:0 @R1 

:0 Rl 

:0 R5 

:0 AB 

;0 gA+DPTR 



9 

oc 



:0 R2 
:0 R6 



12 :0 eA+FC 



9 

oo 



:0 R3 
;0 K7 



13 :0 3DPTR 



15 FORTH DEFINITIONS 



block 905 

execution of an instruction loads the class into CLASS 

1 SEQUENCE Is used in logging the order of operand encounters; it 

2 is leroed before assembly of each instruction; see PREPARE 

3 7FIRST obtains from SEQUENCE the value when executed by the 

4 first operand, then stores in SEQUENCE the value 1, which 

5 is returned when ?EiKS7 is executed by the second operand 

6 OPERANDS is a byte array which holds, in order of encounter, 

7 the operand numbers of the operands, if any, which apply to 
B the instruction being assembled; It must be cleared before 

9 assembly of each instruction; see PREPARE 

10 :0 is a defining word for operands; associated with each 

11 operand is a constant, the operand numuer.- the value zero is 

12 reserved for the operand vu;.:. ,- at run time, the operand 

13 stores its number into the appropriate byte of ^VECTORS 

14 the operands, defined with :0 , are compiled into the 

15 vocabulary ASM 



block 606 
( 920910/operand vectoring) 



1 
2 
3 

5 
6 
7 
8 
9 
10 

11 

12 
13 

' 4 

IS 



11 CONSTANT (CLASSES ( z-dimenslon) 
20 CONSTANT (OPERANDS 

(OPERANDS CONSTANT (X ( x-dimension) 

I OPERANDS CONSTANT »Y ( y-dlmension) 



# OPERANDS (OPERANDS 
(OPERANDS (OPERANDS 



CONSTANT tXY 

(CLASSES * CONSTANT (ELEMENTS 



CREATE VECTORS < 2-dimenslonal array) (ELEMENTS 2" ALLOT 



ELEMENT 
>VECTOR 



! VECTOR 
G VECTOR 



( x y z - elemO (XY ' SWAP (X 
( elemf - a) 2« VECTORS + ; 

( a elemf) SVECTOR ! f 
( elenti - a) >VECTOR 9 ; 



block 906 

(CLASSES holds the number of potential instruction classes 

1 (OPERANDS holds the number of potential operands, including 
1 NULL , which corresponds to Instructions with no operands 

3 (X , (Y , tXY , 1 (ELEMENTS are named to clarify index 

4 calculations for accessing the 3-dlmcr.slonal array 

5 VECTORS is a 3-dimcnsiona 1 array which associates a vector with 

6 each combination of 1st operand, 2nd operand, I instruction 

7 class 

8 ELEMENT computes the linear element number from the operand 

9 numbers and the Instruction class 

10 >VECTOK returns a pointer to the specified element of VECTORS 

11 ! VECTOR stores a pfa into the specified element of VECTORS 

12 SVECTOR fetches a pfa from the specified clement of VECTORS 
13 

14 

15 



black 607 




1 
2 
3 
4 
5 
6 
1 
8 
9 
10 
li 
12 
13 
14 

15 



( 920910/operand vectoring) 

; NULL : 

: NULL>VECTORS (ELEMENTS DO 

( initialization) NULL> VECTORS 



('] NULL I ! VECTOR LOO? | 



.ALL CR (ELEMENTS DO I SVECTOR 10 U.R LOOP ; 
.CLASS ( el) (CLASSES 1- M1N CR (Y DO (X DO 

DUP I J ROT ELEMENT SVECTOR 10 U.R LOOP LOOP DROP 



.OPERANDS BASE 8 <BASF> ! 
OPERANDS DUP C3 U. 1+ C8 



HEX 

U. <BASE> R BASE ! 



block 907 

NULL>VECTORS makes NULL the default vector; executing it before 

1 loading operand behaviours allows one to load only vectors 

2 corresponding to valid combinations of operand pairs and class; 

3 invalid pairings for a particular instruction will not always 

4 execute NULL , since, in general, not all operand behaviours 
b defined for a particular class are valid ail for instructions 

6 in the class; if classes are limited to a single instruction, 

7 all Invalid pairings will be trapped, in which case NULL may 

8 be replaced with the word : INVALID .* invalid operand (s) H t 

9 .ALL displays in linear sequence 1 (x0,y0,z0), (xl,x3,z0), 

10 <xn,y0,z0), <x0,yl,z0), <xl,yl,z0), ... , (xn,yn,znl | all 

11 elements of VECTORS 

12 .CLASS displays In linear seguence all elements of VECTORS 

13 corresponding to the specified instruction class; since the 

14 class typically is input manually, it is checked for validity 

15 .OPERANDS displays OPERANDS , for diaqnostlc purposes 
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block 60H 

( 920910/vector definition) 

1 : :V ( opl op2 cl) : LAST 9 S CFA 2+ 

2 ROT ROT 2SWAP SWA? 2 SWAP ELEMENT '- VECTOR 
3 

4 
5 

6 EXIT 

1 pfa cl op? opl 

8 a z y x need z y 

9 

10 ROT y a 7 x 

11 ROT z y a x 

12 2 SWAP a x 7. y 

13 SWAP x a 7 y 

14 2 SWAP z y x a 



block 609 
( 920910/vector definition) 



HEX 



: 


l 


CCONSTANT 


-1 








i 


? 


2 


CCONSTANT 


=A 


3 


CCONSTANT 


-C 


2 


3 
4 


4 


~ CCONSTANT 3R0 


5 


- CCONSTANT -8R1 


3 
5 


5 
'.. 


e 


CCONSTANT 


-R.0 


7 


CCONSTANT 


-Rl 


6 


7 


a 


CCONSTANT 


-R2 


9 


CCONSTANT 


-R3 


7 


a 


OA 


CCONSTANT 


R4 


OB 


CCONSTANT 


-R5 


e 


< 


0C 


CCONSTANT 


-R6 


DO 


CCONSTANT 


= X i 


9 


10 














-.; 




OE 


CCONSTANT 


= BA 


OF 


CCONSTANT 


•AB 


u 


:? 


10 


CCONSTANT 


•DPTR 


11 


CCONSTANT 


-gAtDPTR 


12 




12 


CCONSTANT 


= 9A"-?C 


13 


CCONSTANT 


-9DPTR 


13 



bloc* 988 

:V Is a defining word for operand/class vectors; it expects on 

1 the stack the operand numbers of the first and second 

2 operands, respectively, followed by the Instruction class; it 

3 creates a colon definition and loads into the appropriate 

4 element of VECTORS the pfa of that colon definition 
5 

6 

8 

1 
10 
11 
12 
13 
U 

block 909 

these byte constants lacilltate the definition of. vectors 



causes the full name to be compiled; polyFORTtl normally 
complies only the first 3 characters of the name and the 
length, so that the names =GR0 and -SRI would he 
Indistinguishable 



14 ( 14 CCONSTANT -/) 

block 610 

( 920910/destination vectoring) 

1 VARIABLE (MODE) 
2 

3 : STORE ( n) (MODE) 3 EXECUTE ; 
4 

5 : DISPLAY .S CR ABORT ; 
6 

7 : >D1SK t'| VSTORF. (MODE) I VFORCET 

8 : >DISPIAY ['] DISPLAY (MODE) 1 ; 
9 

10 ( default) >DTSPLAY 

11 

12 

13 

14 

1 s 



block 310 

(MODE) holds the pfa of the compilation word ( VSTORE or 
or- DISPLAY J 

STORE is vectored to the previously-selected compilation word 
( VC, or DISPLAY I; the argument passed on the stack Is the 
number of bytes to be compiled; the argument, is used by VC, 
and is discarded by DISPLAY 



DISPLAY displays ana then clears the stack; note that assembled 
instructions, prior to compilation, are In the form of one or 
more bytes on the stack, in proper otdei for compilation via 
VC, 



DISK vectors STORE to 
instructions are compii 
14 JDISPLAY vectors STORE 
15 



VSTORE , so that assembled 
id to the virtual disk array VARRAY 
to DISPLAY | no code is compiled 



block 


611 




block 911 






920910/instruetion definition) 


1 


PREPARE is executed before assembly of each instruction; it is 


1 


: PREPARE 


SEQUENCE ! OPERANDS ! ; 


1 


executed at load time to prepare for the first instruction 


2 








? 


ASSEMBLE uses the operand and class numbers to index into the 


3 


( Initialization) PREPARE 


3 


array VECTORS , from which it obtains the pfa of a routine 


'-. 










corresponding to the specific operands s seguence of encounter 


5 


: ASSEMBLE 


( opc) OPERANDS DUP C8 ( x) SWAP 1+ Cf ( y) 


5 


lor the instruction being assembled,- the opcode basis is ieit 


6 




CLASS ce 


( z) ELEMENT >VECTOR 8 EXECUTE PREPARE STORE ; 


E 


on the stack by execution of the instruction; assembled code 


7 








7 


is compiled or displayed by the vectored routine STORE ; 


a 




: INSTRUCTION ( opc cl ) CCONSTANT C, 


s 


PREPARE precedes STORE to allow use of ABORT in DISPLAY 


9 




DOES> 


DUP OS CLASS C! 1 * Cg ASSEMBLE ; 


9 


: INSTRUCTION defines instructions; it is executed by the 


": D 








'.'J 


run-time behaviour of :CLASS ; the run-time behaviour of an 


11 




:CLASS ( 


cl) CCONSTANT DO£S> CS : INSTRUCTION ; 


. : 


instruction is to load CLASS , leave on the stack the basis 


12 








12 


for the opcode, then invoke ASSEMRLE 


] 3 








13 


:CLASS defines instruction classes; each instruction class is a 


14 








14 


defining word for instructions of that class; the run-time 


15 








15 


behaviour of :CLASS executes : INSTRUCTION 


block 


612 




block 912 





( 


92091 0/inst ruct ion classes) HEX 





OCIJiSS , etc are instruction classes; each class is a defining 


1 





; CLASS 


OCLASS 


1 


word for instructions of that class 


2 


1 


: CLASS 


1CLASS 


2 




3 


2 


: CLASS 


2CLASS 


3 




'= 


3 


; CLASS 


3CLASS 


4 




; 


! 


: CLASS 


4CLASS 


5 




6 


5 


: CLASS 


5CLASS 


6 




7 


6 


: CLASS 


bCLAiS 


7 




3 


7 


: CLASS 


7CI.ASS 


; 




9 


8 


: CLASS 


8 CLASS 


9 




10 


9 


:CLASS 


9CLASS 


10 




11 


OA 


: CLASS 


AC LASS 


11 




1 ! 


0B 


: CLASS 


BCLASS 


12 




13 








13 




" -1 








14 




: 5 








lb 
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block 613 
( 920910/ instruct ions) 

00 OCLASS NOP 

03 OCLASS RR 

13 OCLASS RRC 

22 OCLASS RET 

23 OCLASS RL 

32 OCLASS RETI 

33 OCLASS RLC 
73 OCLASS JHP 
84 OCLASS DIV 

10 0A4 OCLASS HUL 
1 1 0C4 OCI.ASS SWAP 
12 004 OCLASS DA 

OCLASS HOVC 
OCLASS MOVX 



r!BX 



13 93 

14 OEO 



block 
th 

L 

? 
.1 
4 
5 
6 
1 
8 
9 
10 

11 

12 
14 



913 

esc are Instruction raeicrjcs defined as Class instructions; 
Llic . . j L- ■ i [i:ui;cLi:r^ liisLi ja ion duLlnlng wuLd OCLASS 

is i Me basis for .-.ssemhjy of the opcode for the instruction 



block 614 

( 920910/instructions) 

1 70 1CLASS MOV 
2 

3 20 2CLASS ADD 

4 30 2CLASS ADDC 

5 4 2CLASS ORL 

6 50 2CLASS AKL 

7 60 2CIASS XRL 

8 90 2CIASS SUBFJ 

9 OCO 2CLASS XCH 
10 ODO 2CLASS XCHD 
11 

;2 3CLASS INC 

13 10 3CLASS DEC 



block 615 

( 920910/instructions) 

1 ODO 4CLASS DJNZ 
2 

3 0B0 5CLASS CJNI 
4 

5 0B0 6CLASS CPL 

6 OCO 6CLASS CLR 

7 ODO 6CLASS SETB 
8 

9 10 7CLASS JBC 

10 20 7CLASS JB 

11 30 7CLASS JNB 

12 
13 



HEX 



ock 616 
( 920910/instructions) HEX 

4 SCLASS JC 

50 BCLASS JNC 

60 SCLASS JZ 

70 BCLASS JNZ 

80 SCLASS SJMP 
OCO SCLASS PUSH 
ODO SCLASS POP 

2 9CIASS LJMP 
12 9CLASS LCALL 



MAKE YOUR SMALL COMPUTER 

THINK BIG 

(vYeve been ooi rig it since I9T7 (of IBM PC, XT; at, PS2, 
and TRS-AO models 1.3.4S 4P.) 

FOR THE OFFICE — Simplify sua speed your wort 

With our outstanding word proutissiriQ, database handlers, 
and general ledger software. They are easy to use. powerful, 
with aiecuijve-took ormt-outs. reasonable site license costs 
and comfortable, reliable support. Ralph K. Andriat authors 
historian, says: ,, fORTH?YRlTE lets me concentrate on my 
manuscript, not the computer." Stewart Johnson Boston 
filing Co . says: "We use OATAHANDUER-M.US Because if s 
fhe best we've seen," 

M M SF R TH System fcrt from $1 79 96 

Modular pttamj — Integrate with System Disk only whe4 
you need: 

FOflTHWnm - vvordprotessor {99 95 

CMTAHANWJR - Database 55995 
OAT AHANOLER -PIUS - DalatMue MB .96 

FORTHCOM - for Communications S49 95 

LEDGER - Accounting System t2SO.0G 



FOR PROGRAMMERS — Build programs PASTER 
and SMALLER with our '[ntellioanf ' MMSFORTH System and 
applications modules, plus the lamous MMSFORTH continu- 
ing support Most modules include source code Ferren 
Maclnryre, oceanograpner. says: Forth is the language that 
microcomputers were invented to run ' 



nf^FORTH 

MILLER MICROCOMPUTER SERVICES 

S1 Lake Shore Road, Katie*, MA 01700 
! 508/6*3-6 f 38. 9 am - 9 pm) 



MMSFORTH'a flexibility, 
compactness and speed hare resulted in bettet products in 
less time fot a wkje range of sottwara developers including 
AshtonTate, Excasbur Technologies. Lindbergh Systems, 
Lockheed Missile and Space Division, and NASA-Gottdard 

mm ORTH VI* System Disk from (179.9S 

Needs only 24K RAM compared to 100K for BASIC, C, 
Pascal and others. Convert your computer into a Forth virtual 
machine with sophisticated Forth editor and related tools This 
can result in 4 to to times greater productivity . 

Modular pricing - Integrate with System Disk only what 
you need; 

EXPERT 2 - Expert System Development $69.96 
FORTHCOM ■ Fieiibte dm transfer $4995 
UTILITIES Graphics, 6087 support and other facilities. 

and a littie more/ 

THIRTY-DAY FREE OFFER - Fr» MMSFOHTH 
GAMES DISK worth 539 9S rnth purchase of MMSFORTH 
System CPVPTOOUOTE HELPER. OTHELLO. BREAK- 
FORTH and others 



Caff for tr## brocfKm, tmehntewt Jtnfo orpdcwigrfeaaAfe. 



EXTT 

1 ACLASS AJX? 
11 ACLASS ACALL 



block 617 
( 920 910/vpctors) 



HfiX 



1 

2 =A 

3 -DPTR 

4 AB 

5 -SAiDPTR 

6 -A 

7 =A 

8 -A 

9 -A 

10 -A 

11 -9DPTR 
. 2 = j= R 
13 -SRI 

1 4 
lb 





o 





-8A+DPTS 

-gA+PC 
-SDPTR 
-SRO 

-BR1 
-A 

-A 

"A 



V V0.00 

V V0.01 

V V0.02 

V V0.03 

V V0.04 

V V0.05 

V V0.06 

V V0.07 

V V0.08 

V V0.O9 

V V0.10 

V V0.11 

V V0.12 



10 ■ 

2 + 

3 1 
1C i 

12 ^ 

13 ) 



block 917 

i behaviour Is defined for each possible comb ina Lion of class 

1 and operand pair; invalid combinations are assigned the null 

2 behaviour; the behaviours are arbitrarily named i Vz.xx for 

3 "vector xx of class z") , the name is not used, except 

4 io: diagnostics; : (01 expects on the stack the following 

5 order of operand and class numbers: 

6 operandi! operand?* class* 

7 the number left on the stack by the vector is the number of 

8 bytes (opcode ♦ daw/address) to be compiled; It is consumed 
by STORE 
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block 618 






( 920 910/ vectors) 


HEX 








1 


. 


= 6R0 


1 


- 


:V 


vi .01 


IE 




2 


2 





3R1 


i 




:V 


VI . 7 


17 


- 


? 


3 





-RO 


1 


- 


:V 


Vi ,03 


18 


+ 


i 


4 


:.' 


Rl 


; 




:V 


VI . 04 


19 


- 


? 


5 





R2 


l 




:V 


VI .05 


1 ■: 


- 


? 


6 





-R3 


1 




:V 


VI. 06 


IB 




<■ 


7 


V 


- KA 


l 




:V 


VI , 07 


: :': 


> 




8 





-RS 


1 




: V 


VI .08 


I 


+ 


2 


9 





-R6 


: 




:V 


VI. 09 


IE 


+ 


2 


10 





■ R7 


l 




:V 


vi .10 


IF 


+ 


J 


11 


-SR0 





l 




:v 


VI. 11 


36 




2 


12 


-§R1 





i 




:V 


VI. 12 


37 


+ 


2 


13 


=R0 





i 




:V 


V] . ". "■ 




i 


2 


: 


-Rl 





: 




:V 


VI. 14 


39 


4 


?. 


[ 5 





















block 619 
( 92S910/vectors> 



1 


=R2 





1 




:V 


VI 


.15 


3 A 




? 


2 


-R3 


= 


1 




:V 




.16 


33 


+ 


.- 


3 


HA 





1 




:V 


V1 




:jc 




2 


1 


-R5 


D 


1 




:V 


VI 


. 18 


3D 




? 


5 


-R6 





1 




:V 


VI 


.19 


3E 




2 


• 


R7 





I 




:V 


VI 


.20 


3F 




2 


7 




-SRC 


1 




:V 


V I 


. 21 


7C 


+ 


1 


8 


-A 


-SRI 


1 




; . 




.22 


11 




: 


9 


-A 


-RO 


1 




: i 


VI 


.23 


- 


+ 


I 


LC 


A 


Rl 


: 




:V 


v_ 


.24 




+ 


1 


:: 


=A 


-R2 


: 




:V 


VI. 2b 


7A 




i 




-A 


= R3 


: 




:V 




. 26 


7B 


+ 


i 


■3 


■A 


-R4 


; 




:V 




. 2 


7C 




; 




A 


-RS 






:V 


V 1 




ID 




i 

























blocs 620 
( 9209] 0/voctors) 



i 


A 


-B6 






:V 


VI 




7E 


+ 


: 


2 


-A 


=R7 


• 




:V 


VI 


30 


7F 


+ 


i 


3 


-@R0 


A 






:V 


VI 


ij 


86 


+ 


! 


4 


=9R1 


,1 


": 




:V 


V] 


32 


s-- 


+ 


: 


b 


30 


A 


- 




:V 


. ] 


33 


■-ir- 






6 


-Rl 


A 


1 




;V 


V] 


34 


es 


< 


l 


7 


-R2 


A 


1 




: V 




35 


B A 




l 


9 


r<; 


A 


". 




:V 


VI 


36 


S3 


- 


1 


9 


R4 


A 


1 




:V 


VI 


37 


8C 


+ 


■ 


. : 


=R5 


-A 


: 




:V 


VI 


38 


8D 


+ 


l 


11 


R6 


»A 


l 




:V 


VI 


39 


BE 




! 


12 


-R7 


-A 


- 




:V 


VI 




8F 


r 


1 


13 


-?R0 




l 




:V 


VI 


41 


6 




2 


. ■; 


=8R1 


- « 


l 




:\ 


VI 


42 






2 


1 5 























block 621 

( 920910/vectors) 

1 -RO -I 

2 -Rl I 

3 = R2 ■# 

4 =R3 -t 

5 =R4 -< 

6 -R5 -# 

7 -R6 -f 

8 =R7 -I 

9 

10 -I 

11 -A 

12 -C 

13 -A 

14 =C 
15 



HEX 
.43 
,44 
,45 
.46 
.47 
.48 
,49 
.50 
.51 

52 

53 
.54 

5 b 
.56 



! > 
OA 
OB 

Or 
CD 
;jl 
DF 
15 
5 
85 
22 
75 
32 



block 622 
( 920910/vectors) 



=A 

-DPTR 

=A -@R0 
-A "(SRI 
-A -RO 
-A =R1 
-A -R2 
A ■ R3 



■I 1 
■I 1 

2 - 

2 - 

2 - 

2 - 

2 - 

2 - 



HEX 
.57 



:V VI . 58 

:V V2.1 1 

:V V2.12 

:V V2.13 

:V V2.14 

:V V2.15 

:V V2.16 



4 

2 

6 4 

7 + 
a i 
9 + 

OA + 
OB i 



10 -A -R4 

11 -A -R5 

12 =A =R6 

13 -A -R7 

14 =1 

15 

block 623 



:V 


v- 


.17 


Oc 


+ 




:V 


vz 


.18 


00 


• 


1 


:V 


V2 


.19 


OE 




1 


rv 


V2 


. ?' 


OF 


+ 


. 


:V 


V2 


. 21 


i 


+ 


3 






( 920910/vectors) HEX 




1 


-A 


2 - 


:V V2.22 


2 + 2 




2 


-A 


2 - 


:V V2.23 


5 + 2 




3 


-A -f 


2 - 


:V V2.2 4 


4 1 ? 




4 


=c o 


2 - 


;V V2.25 


32 + 2 




5 


( -c 


-1 2 


- ;V V2.26 


60 + 


2 ; 


6 












7 


-8R0 


3- 


:V V3.01 


6 + 1 


■ 


E 


=8R1 


3- 


:V V3.02 


7 + 1 




9 


-RO 


3- 


:V V3.03 


8 + 1 




10 


-Rl 


3- 


:V V3.04 


9 + 1 




1 ". 


-R2 


3- 


:V V3.05 


OA + 1 




12 


-R3 


3- 


;V V3.06 


+- 




13 


■ Rl 


3- 


:v V3.07 


oc + i 




14 


-R5 


3- 


:V V3.08 


OD ♦ 1 

















block i . ; 1 



5 


( 920910/vectors) HEX 






: 


-R6 







3 


- :V V3.09 




OE + 


. 


2 


:■<' 







3 


- :V V3 .10 




OF + 


1 


3 










3 


• :V V3.ll 




5 + 


2 


■'i 


A 







3 - 


- :V V3.12 




4 + 


: 


» 


-DPTR 


G 


3 - :V V3.13 


0A3 + 


: 


■ 

7 


-RO 





4 




V V4.01 


H 


+ 2 




fi 


-Rl 





4 




V V4.02 


3 


+ 2 




9 


= R2 





4 




V V4 .03 




+ 2 






-R3 





4 




V V4.04 


OB 


+ 2 




11 


J 


n 


4 




V V4.05 


OC 


* 2 




12 


»R5 









V V4.06 


DO 


+ 2 






= R6 


i: 


1 




V V4.07 




+ 2 






-R7 


c 


4 




V V4.08 


Or 


» 2 




ib 








4 




V V4.09 


i 


+ 3 





block 625 

: 
2 

4 

5 

fc 

7 

8 

9 
10 
11 
12 
13 
U 
15 



block 626 
( 920910/vecLors) 



( 920910/vectors) 


HEX 








-eso 


l 


5 




M 




01 


6 




3 


SRI 


1 


S 




Y 


V: 


■-; 


7 


+ 


3 


-RO 


■ 


5 




V 


V5 


1)3 


8 


+ 


3 


;■ ; 


-1 


5 




V 


V5 




9 


+ 


' 


- r; 


-" 


b 




V 


V5 


Ob 


OA 


+ 


3 


;, > 


-1 


5 




V 


V! 


;;t 


oa 


+ 


3 


- a ; 


1 


5 




V 


V5 


C7 






: 


■H - 


... 


5 




V 


V5 


08 


DO 


+ 


3 


-R6 


- • 


5 




V 


V5 


OS 


JK 


+ 


3 


= R7 


N 


5 




V 


V5 


10 


OK 


+ 


3 


-A 




5 




V 


V5 


n 


4 


+ 


3 


-A 


S 


5 




V 


V5 


12 


5 


+ 


-i 



'. 

2 
3 
1 
r. 
f. 
7 
!: 
9 
10 
I I 
12 
13 
14 

1 !: 



:V ve.oi 
:V V6.02 

;V V6.03 



HEX 
2 
44 

■■ 



7 - :V V7. 



8 - :V VS. 01 



( OA - :V VA.01 ;> 



( 44 !or A C?L ; 24 lor A CLH ) 
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Some Assembly 
Required... 



Conducted by Russell L Ham's 
Houston, Texas 

As promised, with tin's column we begin an expedition 
into the realm of embedded systems. According to the 
ancient proverb, a journey of a thousand miles begins with 
a single step. Our first step, as you will shortly see, is directly 
onto a figurative "cow pie." (Those of you unfamiliar with the 
term obtnously have never walked through a pasture in 
which cattle graze.) 

A Rational Rationale 

The nature of Forth, as well as the nature of embedded 
systems, necessitates the occasional use of assembly lan- 
guage. Although hand assembly is passible, it is tedious and 
prone to error. An assembler is almost always a worthwhile 
investment. Also, designing and coding an assembler is one 
of the better ways to gain familiarity with the instruction set 
of a processor. 

While it is possible lo utilize an assembler which is 
external to the Forth environment, the convenience of an 
assembler integrated with Forth and the ease (in general) 
with which such a tool may be created, combine to make the 



There are processors for which 
this task can become an 
arduous a nd irksome chore. 

writing of assemblers a fairly common activity among Forth 
programmers. Forth programmers experienced in metacom- 
pilation typically will write an assembler upon first encoun- 
tering a new processor. The assembler then can serve both 
as the means to port Forth to the new platform and as the 
resident assembler for the new Forth system. 

Consistent Inconsistency 

The art of assembler design admits of many interpreta- 
tions. I find most appealing the approach of Forth, Inc., as 
illustrated by the 8080 assembler in Starting Forth. The 
source for polyForth assemblers 1 have seen typically occu- 
pies less than half a dozen screens. However, such compact- 
ness is possible only when the processor instruction set 
consistently follows patterns. 

If a processor has a reasonably consistent instruction set, 



an assembler is neither a lengthy nor a difficult undertaking. 
However (and here is where the cow pies come in), there are 
processors for which the task can become an arduous and 
irksome chore, rather than a stimulating exercise. Such, 
unfortunately, is the case for the 8051 processor family, the 
family with which we shall deal. The 8051 instruction set is 
a hodgepodge, difficult to handle by any means. 

Seeing an upcoming need (that of a potential client) for 
a Forth system for the 8051 family, I decided to assault two 
birds with one stone— hence, our project: an 8051 assembler. 
Were my client not already committed to the 8051 family, our 
present and future endeavours would be based on a 
Motorola processor, such as the 68HC11. However, I cannot 
at present manage a parallel effort with both platforms, so, 
unless some patron wishes to rescue us by engaging my 
services for programming in the Motorola environment, we 
are doomed to the wastelands of Intel, Circumstances such 
as litis have left our civilization burdened with such ill- 
conceived contrivances as the segmented memory architec- 
ture of the 80x86, the QWERTY keyboard, and Word Perfect. 
But then, that's life. (Note: The author types on a Dvorak 
keyboard and does all his writing with Microsoft Word.) 

The Nitty-Gritty 

The accompanying screens contain the basis of an 
extensible 8051 assembler which, in its present state, com- 
piles all 8051 -family instructions, except for a couple of 
pathological cases. Hie assembler is written in polyForth 
1SD-4/MS-DOS for the 8086/8088. An entire instruction is 
built on the stack before being compiled. Included in the 
code is support for a virtual array on disk, into wliich the 
assembled code may be compiled. The assembler uses 
postfix notation, and operands must be separated by spaces, 
rather than by commas. Otherwise, the opcode mnemonics 
and operands are as specified in the appropriate Intel 
documentation. Some examples of valid syntax are the 
following instructions; 

0A+DPTR JMP A # 25 XRL 

A 32 41 CJNE @R0 # 57 2 CJNE 

5 C MOV C 6 MOV 
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The assembler is based on active operands, a table of 
execution vectors, and a mechanism (a toggle and a two-byte 
array) for tagging the first operand encountered. Named 
operands (#, A, @R0, Rl, etc.) are active, in the sense of 
having a run-time behaviour other than that of CONSTANT. 
Execution of a named operand loads either the first or the 
second byte of the array OPERANDS with the value of the 
operand and sets the toggle SEQUENCE. The toggle initially 
is clear, and is cleared after assembly of an instruction. If the 
toggle is dear, the operand value is stored in the first byte of 
OPERANDS; if the toggle is set, the value is placed in the 
second byte. 

A problem not initially envisioned was the need Lo 
discriminate between instructions of the form 

(named operandX' numeric operand)( mnemonic) 

and those of die form 

(numeric operandXnamed operand)(mne.montc) 

without requiring non-standard syntax. When parsing the 
input stream, the text interpreter automatically converts 
numeric operands (i.e., data or address bytes) and pushes 
them onto the stack; thus, widi no flag or mechanism to 
indicate that a numeric operand precedes it, die named 
operand always stores its value into the first byte of OPERANDS. 

In an effort to avoid redesign of the entire assembler, I 
envisioned two approaches to the problem. The first was to 
parse the input stream under program control, dien attempt 
to convert the resulting string, using CONVERT (because 
CONVERT returns an address which can be used to determine 
success of the conversion). Successful conversion would 
automatically push numeric operands onto the slack. A string 
which failed to convert would be either a named operand or 
a mnemonic. In such a case, juggling of the input pointer > IN 
could allow the string to again be parsed and then executed. 
I experimented for a while with this technique, but was 
unable to devise a suitable implementation, so I turned to the 
second approach, which was to redefine NUMBER 

Upon loading the assembler, I revector NtJMBER to a 
version which, after performing a conversion, sets the toggle. 
Thus, encounter of a numeric operand causes the following 
named operand, if any, to place its value in the second byte 
of OPERANDS. This solution does not interfere with the 
ordinary function of NUMBER, but there is an associated 
hazard, as detailed in the shadow block documentation. 

I have grouped the 8051 instructions into classes, in which 
all members of a class follow the same pattern with respect 
to operands. Instruction mnemonics (ADD, SUBB, XRL, etc.) 
are defined with : INSTRUCTION. When executed, a nine- j 
monic pushes onto the stack the basis or base value for the 
opcode and calls ASSEMBLE. ASSEMBLE uses the instruction 
class and operand numbers to index into the three-dimen- 
sional array VECTORS inordeno obtain an execution vector. 
The typical run-time behaviour of a vector is to add to the 
base value an offset corresponding to the operand(s), then 
push onto die stack the number of bytes to be compiled. 

After ASSEMBLE executes the vector associated with a 
particular combination of class and operands, control passes 



to PREPARE, which clears both the toggle and die array 
OPERANDS. Control passes thence to the vectored routine 
STORE, which disposes of die assembled code, now resident 
on the stack. By default, STORE is vectored to DISPLAY, 
which simply displays and then clears the slack. STORE may 
be redirected to VSTORE in order to compile the 8051 code 
into a virtual array on disk. It is a simple matter to redirect 
STORE to other destinations, e.g., a serial port. 

Note the ease with which the virtual array is implemented- 
a single source block does it all! The same approach may be 
used for a virtual array in extended memory. Virtual memory 
techniques are invaluable for data logging applications, and 
they form die basis of metacompilation. 

An understanding of defining words is essential to the 
mastery of Forth. Note the nesting of the defining words 
:CLASS and : INSTRUCTION. Also note the manner in 
which the defining words :0 and :V are used to define 
operands and vectors, respectively. In spite of its unusual 
appearance, operation of the defining word : V is really quite 
simple. : V is nodiing more than a : which calculates the PEA 
of ihe word being defined and stores the PFA into the array 
VECTORS. Odicrwise, : V is used as one would use : . 

Although the assembler is usable in its present state, 
several amenities remain to be added, among ihem, labels 
and high- level Forth control of loops and branching. Also, at 
the cost of creating a separate class for each instruction (thus 
expanding the array VECTORS), it should be possible to trap 
all invalid combinations of operand and mnemonic 

This code will Ix.: posted on Clinic. If there is sufficient 
interest, I will post an updated listing once my implementa- 
tion is complete. Conversely, I am interested to see what my 
readers do, given litis code as a basis or for inspiration. 

Preview of Coming Attractions 

For the next leg of our journey, you may want lo pull out 
your soldering iron and wire-wrap lool. Metacompilation 
and related subjects are easier to discuss and understand 
when sped fie instances are in view. Accordingly, column No. 
5 will complete the preliminaries by documenting a repro- 
ducible, minimal-cost, 803 2 -based single- board computer 
(SRC), Boa.sting little more than a serial and a parallel port, 
a reset button, and a full complement of RAM, the device is 
an easy weekend project in the $50 range. It has been 
designed for software development in RAM, and requires 
neither F.PROM programmer nor ROM emulator For those 
with an aversion to hardware projects, I will attempt to find 
a source of a suitable commercial SBC. 

R.S.V.P, 



Russell Harris is an independent consultant providing engineering, program- 
ming, and technical documentation services to a variety of industrial clients. His 
main interests lie in writing and teaching, and in working wilh embedded systems 
in Ihe field s ot i n slfu men la I ion and mac hi ne control . He ca n be rcac hed by p hone 
at 713-461-1616 or by mail at 8609 Cedardale Drive, Houston, Texas "//055. 
Caveat His GEnio address is RUSSELL H) 

"A rose by any other name would still haw thorns " 



Code begins on page 33, and can also bo downloaded 
from the Forth RoundTablc on GEnie. 
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Fourteenth Annual 

FOR ML CONFERENCE 

The original technical conference 
for professional Forth programmers, managers, vendors, and users. 

Following Thanksgiving, November 27 - November 29, 1992 

Asilomar Conference Center 
Monterey Peninsula overlooking the Pacific Ocean 
Pacific Grove, California U.S.A. 



Theme: Image display, capture, processing, and analysis 

Papers are invited that address relevant issues in Uic development and use of Forth in image display, capture, processing, 
and analysis. Additionally, papers describing successful Forth projectcase histories are of particular interest. Papers about other 
Forth topics are also welcome. 



Conference Registration 

Registration tec lor conference attendees includes conference registration, coffee breaks, notebook of papers submitted, and 
for everyone rooms Friday and Saturday, all meals including lunch Friday through lunch Sunday, wine and cheese parties Friday 
and Saturday nighLs, and use of Asilomar facilities. 

Conference attendee in double room — S365 • Non -conference guest in same room— S225 • Children under 1 8 years old in same 
room — $ 1 55 • Infants under 2 years old in same room— free * Conference attendee in single room— $465 

Forth Interest Croup members and their guests are eligible for a ten percent discount on registration fees. 

Register by calling the Forth Interest Group business office ai 510-893-6784 or by writing to: 

FOR ML Conference, Forth Interest Group, P.O. Box 2154, Oakland, CA 94621 



Forth Interest Group 

P.O. Box 2154 
Oakland, CA 94621 
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